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PREFACE 


The features of USASl COBOL/MASTEB specified in this manual conform to the United States of 
America Standards Institute (USASl) COBOL Standard. The USASl specifications define a Nucleus 
for internal processing and eight fimctional processing modules: Table Handling, Sequential Access, 
Eandom Access, Kandom Processing, Sort, Report Writer, Segmentation, and Library. The 
Nucleus is divided into two levels, low and high. 

USASl COBOL/MASTEE is implemented at the high level of the Nucleus. Of the modules, only 
Eandom Processing and Segmentation are not implemented. All other modules are implemented 
at the high level. The Report Writer module can be omitted from the COBOL library. USASl 
COBOL/MASTEE runs imder control of the MASTER operating system. 

Additional features of COBOL are implemented in USASl COBOL/MASTEE to facilitate operating and 
to support system interfaces. The inclusion of COBOL features over and above the USASl standard 
is not prohibited by the standard; however, an installation option is available to diagnose all non- 
USASI features as errors at compile time. 

The Business Data Processing Unit (3312) must be present to compile and execute USASl COBOL/ 
MASTER programs on a CONTROL DATA® 3300 computer. The CONTROL DATA® 3500 computer 
comes equipped with the Business Data Processing hardware. 

This manual is organized in the traditional manner of Identification, Environment, Data, and Pro¬ 
cedure Divisions with the exception of the Report Writer and Library modules which are described 
in separate chapters. 


iii 


60229400 





ACKNOWLEDGMENT 


COBOL is an industrj'^ language and is not the property of any company or group of companies, or of 
any organization or group of organizations. 

No warranty, expressed or implied, is made by any contributor or by the COBOL Committee as to 
the accuracy and functioning of the programming system and language. Moreover, no responsibility 
is ass\imed by any contributor, or by the committee, in connection therewith. 

Procedures have been established for the maintenance of COBOL. Inquiries concerning the procedures 
for proposing changes should be directed to the Executive Committee of the Conference on Data 
Systems Languages. 

The authors and copyright holders of the copyrighted material used herein: 

FLOW-MATIC (Trademark of Sperry Rand Corporation), Programming for the Univac (R) I and 
II, Data Automation Systems copyrighted 1958, 1959, by Sperry Rand Corporation 

IBM Commercial Translator Form No. F 28-8013, copyrighted 1959 by IBM 

FACT, DSI 27A5260-2760, copyrighted 1960 by Minneapolis-Honeywell 

have specifically authorized the use of this material in whole or in part, in the COBOL specifications. 
Such authorization extends to the reproduction and use of COBOL specifications in programming 
manuals or similar publications. 


60229400 


V 





INTRODUCTION 


INTRODUCTION TO COBOL 

COBOL (Common Business Oriented Language) is a programming language which uses English terms 
to simplify the programming of business data processing problems. This manual presents the details 
and imles for writing a program in USASI COBOL/MASTER for the CONTROL DATA® 3300 and 3500 
computers. Familiarity with basic COBOL is desirable, but not essential. This introduction con¬ 
tains a brief outline of the COBOL language elements, program structure and content. Used in 
conjimction with the rest of the manual, it provides the new user with an introduction to the fimda- 
mentals of COBOL programming. 


LANGUAGE ELEMENTS 


The COBOL language is made up of the following elements: 

COBOL reserved words 

User-defined words 

Literals 

Level niunbers 

Symbols 

Pictures 


The user composes user-defined words, literals, and pictures according to rules that govern the 
choice and arrangement of characters. Within the limits imposed by the rules, it is virtually 
possible to compose an infinite niunber of words, literals, and pictures. 

The COBOL'reserved words, symbols, and level numbers are presented in fixed sets from which the 
user selects what he needs. He cannot invent new reserved words, symbols, or level numbers and 
must use these elements according to the rules of the language. 


The sample COBOL source program entry below shows all six elements: 



level 

number 


.DATA-NAME-1. .PICTURE, ,XXX. yALUR 

user-defined \ picture / 

word , 

COBOL reserved 

words 





literal 


symbol 
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COBOL Reserved Words 


Over 250 English words and abbreviations have been set aside as COBOL reserved words. (Appendix 
C contains a complete list of these reserved words.) Special meanings have been assigned to these 
words; the user 

• Does not define reserved words 

• Cannot change the meaning of a reserved word 

• Cannot add words to the reserved word list 

• Cannot substitute other words for those on the list 

• Must not alter or misspell reserved words 

• May use reserved words only for specified purposes 

The reserved words have various purposes as defined in the reference formats. They may identify 
program units,such as SECTION, PROCEDURE, WORKING-STORAGE. They may identify parts of 
entries, such as VALUE, PICTURE, USAGE. They may specify actions like WRITE, PERFORM, 
DIVIDE. They may have specific functional meanings such as NEGATIVE, COMPUTATIONAL, 
EQUAL. As figurative constants, they can represent specific data values: ZERO, SPACES, LOW- 
VALUE. (A complete list of figurative constants is given in appendix B.) 


User-Defined Words 

The user must supply words that name data items, data conditions, and procedures. These w’ords 
have no preassigned meaning, but they must be defined within the prc^ram in which they are used. 
The formation of these words is governed by the following rules: 

• A word may be up to 30 characters long. 

• It may contain letters (A through Z), digits (0 through 9) and the hyphen (-). 

• Only procedure names may be entirely nximeric; all other words must contain at 
least one letter. 

• A word may neither begin nor end with a hyphen. 

• Spaces (blanks) must not appear in a word. 

• It must not be spelled exactly like a reserved word. 

The example below contains user-defined words as well as reserved words and sj^mbols. 


.ADD-DEDUCTIONS 



reserved words 


STATE-UNEMPL JUNITED . ^ jmS^ GIVING _^TOT-DED , . 

user-defined 
words 
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Appendix B contains a detailed description of the formation of different types of user-defined words 
such as data-names, condition-names, procedure-names, and so forth. 


literals 

Literals are a special case of user-defined words. They are actual values used in the program and 
as such are self-defining. Literals may be numeric or non-numeric. 

A numeric literal is a string of digits that may include a plus or minus sign, and a decimal point. 
Its value is the quantity represented by the characters in the literal. Every numeric literal is 
classed as a numeric item. 

A non-numeric literal is a string of one to 120 characters enclosed in quotation marks from the 
computer's character set (appendix B). It may contain reserved words and spaces but not the 
quotation mark. The value of a non-numeric literal is the string of characters excluding the quota¬ 
tion marks. Non-numeric literals are classed as alphanumeric items. 

Eules governing the formation of literals are given in appendix B. 

The following examples show the use of literals in an entry: 

DIVIDE ,1. 8, INTO CONVEETED-TEMPl GIVING TEMP-2. 

^numeric literal 


77 HEADING-A PICTUEE X(10) VALUE IS ''COBOL LIST 



non-numeric literal 


Level Numbers 


Level numbers (01 through 49, 66, 77, and 88) are used in entries that assign names to data items 
and data values. They designate the level of the entries relative to each other. 

Numbers 01 through 49 designate the hierarchy of data entries within records. 01 is always assigned 
to the record itself; 02 through 49 are assigned to items within the record. Level numbers need not 
be consecutive but must be ordered so that the higher the number, the lower the entry in the 
hierarchy. 

Level niimber 66 designates an entry that renames a previously defined entry. It is always used with 
the reserved word EENAMES. 

Level niunber 77 designates an independent data item, one that is not part of a record. 

Level number 88 is used with entries that assign condition names to specific values a data item may 
assume. 
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Whenever a level number is used, it is the first element in the entry. 


The entries below show how level numbers are used: 


level 
numbers 




ITEM-A PICTUEE XX VALUE 01. 

UPDATE-RECOED. 

Q2, RECORD-ID. 

4, CODE-NUMBER PICTURE X. 

NEW-CODE VALUE "A". 

^.8a OLD-CODE VALUE "B”. 

^ AC COUNT-NUMBER PICTUEE 999. 
CUSTOMER-IDENTIFICATION. 

66, RETAIL-ID RENAMES CUSTOMER-IDENTIFICATION. 


Symbols 

Symbols are special characters which have specific meanings for the compiler. Symbols are used 
in punctuation, as operators in arithmetic expressions, as relational operators in conditions, and 
as editing symbols in pictures. The COBOL Character Set in appendix B lists all the symbols 
available to the COBOL programmer. PxmctuatLon rules are given in appendix B, the rules for 
arithmetic and conditional operators in chapter 4, and picture symbols in chapter 3. 


Pictures 


Pictures describe such characteristics of data items as: 

• Size of item 

• Class of item: numeric, alphabetic, or alphanumeric 

• Whether the item is signed 

• Position of an assumed decimal point 

• Editing (deletion, insertion, or replacement of characters) to be performed on the item 

Each picture is a string of from 1 to 30 characters. Pictures are composed of the characters listed 
under PICTURE in chapter 3. In general, the number of characters defines the size of the item and 
the character itself defines the class: X=alphanumeric, 9=numeric, A=alphabetic. A picture may be 
abbreviated by enclosing an integer in parentheses to show the size immediately after the character 
defining the class. For instance, X(20) means the same as 20 X's in a row; both mean that the item 
consists of 20 alphanumeric characters. 


X 
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The word PICTURE or the words PICTURE IS or the abbreviation PIC always precedes the picture 
itself in an entry. 

Examples of pictures in entries: 


02 FILLER PICTURE 
02 STOCK-ITEM PIC .999^ 


pictures 


PROGRAM STRUCTURE 


A COBOL source program is composed of entries organized into divisions, sections, and paragraphs. 
In general, a division is made up of sections, and a section is made up of paragraphs. 


Divisions 

All COBOL programs consist of four divisions each with a fixed name: IDENTIFICATION, 
ENVIRONMENT, DATA, and PROCEDURE. The divisions always appear in that order in a program. 

The beginning of each division is marked by a division header entry consisting of the name of the 
division followed by the word DIVISION and a period. The division header always appears on a line 
by itself. 


Sections 

The inclusion of sections depends on the particular division. There are no sections in the Identification 
Envision. The Environment and Data Divisions always have sections and these sections have fixed 
names. Sections are optional in the Procedure Division, and when sections are included, the section 
names are supplied by the user. 

Each section is identified by a header entry consisting of the section name followed by the word 
SECTION and a period. A section header usually appears on a line by itself. 


Paragraphs 

All divisions except the Data Division contain paragraphs. Paragraph names in the Identification and 
Environment Divisions are fixed. In the Procedure Division, paragraph names are user defined. 

Paragraphs are Identified by header entries consisting of a name followed by a period and a space. 

A paragraph header need not appear on a line by itself; it must be the first entry on a line, but may 
be followed on the same line by one or more entries in that paragraph. 
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Entries 


An entry is one or a series of language elements terminated by a period and a space. The precise 
sequence of elements in each entry is dictated by the format rules contained in this manual. 

Sample Division showing structural units 

division entries 

~ d ENVIRONMENT DIVISION, 

sections 

r~ d CONFIGURATION SECTION, 

paragraphs 

d SOURCE-COMPUTER. 

_ d 3500. 

d OBJECT-COMPUTER. 

L_ _ d 3500. 

d d INPUT-OUTPUT SECTION. 

d FILE-CONTROL, 

d SELECT OLD-MASTER-FILE 

1_ ASSIGN TO TAPE 01. 

d SELECT NEW-MASTER-FILE 

_ L_ _ l_ ASSIGN TO TAPE 02. 


PROGRAM CONTENTS 


A COBOL source program must be identified, it must specify linkage between the computer system 
and the data files to be processed, it must define the data to be processed, and finally it must specify 
how the data is to be processed. A COBOL source program consists of the information required to 
perform these functions organized into the four required divisions. 


Identification Division contains the information that identifies the program. At the very least, this 
division states the program name. In addition, it may contain the date the program was written, the 
date compiled, the author, the installation, and any remarks that might be useful to someone 
reading the program. 
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Environment Division contains information about the equipment used to compile and execute the pro¬ 
gram. Its primary fimction is to assign each data file by name to an input-output device and to 
specify any special input-output techniques. 


Data Division contains a full description of the data to be processed by the object program. In the 
File Section, it describes the data items that make up each of the files named in the Environment 
Division. In the Working-Storage section it describes the data items used for constants and for data 
developed during execution of the program. If the program is divided into subprograms, the Common 
Storage Section contains descriptions of data common to more than one subprogram. The Report 
Section contains a description of data to be output on a printed report in terms of the format in which 
it will be presented. 

Data Division entries show how data items are grouped and organized into files and records. Data 
names, level numbers, pictures, and other information are contained in these entries. 


Procedure Division specifies the actions required to process the data and it indicates the sequence 
of processing. The basic functions of this division are input-output, arithmetic, data movement, 
and sequence control. In addition, it provides the user with the capability to sort files, search 
tables, and write reports. 


REFERENCE FORMATS 


Each COBOL entry is described in terms of a reference format. Throughout this manual a format 
is shown adjacent to information defining the entry. When more than one specific arrangement is 
permitted, the format is separated into numbered formats. 


Notation Used in Reference Formats 


UPPER CASE 


UNDERLINED UPPER CASE 


lower-case -words 


level numbers 


[ ] Brackets 


words are COBOL reserved words. They must be spelled 
correctly including any hyphens and may not be used in a 
source program except as specified in the reference formats 

words are required when the format in which they appear 
is used. They define the action of the compiler. 

are generic terms which represent the words or symbols 
supplied by the user. When generic terms are repeated 
in a format, a number or letter is appended to the term for 
identification. 

are one- or two-digit numbers that precede entries in the 
Data Division to indicate the hierarchy level of entries. 

enclose optional portions of a reference format. All of the 
format within the brackets may be omitted or included at 
the user's option. 
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11 Braces 


enclose two or more vertically stacked items in a reference 
format when only one of the enclosed items can be used. 

... Ellipses immediately following a pair of brackets or braces indicate 

that the enclosed material can be repeated at the user's 
option. 

Punctuation symbols (period, comma, semicolon) shown within the formats are required unless 
enclosed in brackets and specifically noted as optional. 


Notation used in Examples 


t indicates the position of an assumed decimal point in an item. 

A plus or minus sign above a numeric character (n) indicates an operational sign is stored 
in combination with the numeric character. 


Character positions in storage are shown by boxes. 
An empty box means an unpredictable result. 


A 

B 

C 

D 


A indicates a space (blank). 
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IDENTIFICATION DIVISON 


1 


1.1 

SPECIFICATION OF 

IDENTIFICATION 

DIVISION 


The Identification Division specifies the information to identify the source 
program and the output from compilation. It must include the program name, 
and may also include the date the program was written, the date compiled, 
and so forth. Information specified in this division is included in the listing 
of the source program, but only the PROGEAM-ID clause affects the object 
program. 


IDENTIFICATION DIVISION. 

PROGRAM-ID. prc^ram-name. 

[AUTHOR, comment-paragraph.] 

[ INSTALLATION, comment-paragraph. ] 

[ DATE-WRITTEN, comment-paragraph.] 

[DATE-COMPILED, [comment-paragraph. ] ] 

[SECURITY, comment-paragraph.] 

[REMARKS, comment-paragraph. ] 

The header IDENTIFICATION DIVISION begins in column 8 of the first line 
and is followed by a period and a space. The name of each succeeding para¬ 
graph is specified on a new line; each begins in column 8 and is followed by 
a period and a space. The comment paragraphs are any combination of 
characters from the COBOL character set (appendix B) organized to con¬ 
form to sentence and paragraph structure. Only the PROGRAM-ID paragraph 
is required. 
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1.1.1 

PROGRAM-ID 


1.1.2 

DATE-COMPILED 


The PEOGEAM-ID paragraph gives the name by which the program is 
identified. 

PEOGEAM-ID . program-name. 

The program name is a word and must conform to the rules for forming a 
word (appendix B). The program name identifies the source program, the 
object program, and all listings pertaining to the program. The first seven 
characters of this name must be unique within the COBOL source program. 


DATE-COMPILED 

The DATE-COMPILED paragraph provides the compilation date in the 
Identification Division source program listing. 

DATE-COMPILED , [comment-paragraph. ] 

The paragraph name DATE-COMPILED causes the current date to replace 
the comment paragraph during program compilation. 

The remaining paragraphs in the division supply documentary information 
and if specified, will appear in the source program listing. 


1-2 
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ENVIRONMENT DIVISION 


2 


2.1 

SPECIFICATION 

ENVIRONMENT 

DIVISION 


The Environment Division describes aspects of a COBOL program that depend 
on the physical characteristics of a specific computer. This division must be 
rewritten and the entire source program recompiled when the object program 
is to be run on different computers. 

The Environment Division specifies the configuration of the compiling com¬ 
puter and the object computer. In addition, information relating to input- 
output control, special hardware characteristics, and control techniques can be 
specified. The information in the Environment Division is specified in two 
sections; The Configuration Section specifies the characteristics of the 
source computer and the object computer. The Input-Output Section specifies 
the information needed to control transmission and handling of data betw’^een 
external devices and the object program. 


OF 


ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER, source-computer entry. 
OBJECT-COMPUTER, object-computer entry. 

[SPECIAL-NAMES, special-names entry.] 

Input-output section. 

[FILE-CONTROL, file-control entry.] 

[I-O-CONTROL. input-output-control entry.] 

The Environment Division must begin with the header: ENVIRONMENT 
DIVISION followed by a period and a space. 
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2.2 

CONFIGURATION 

SECTION 


2.2.1 

SOURCE-COMPUTER 


2.2.2 

OBJECT COMPUTER 


This paragraph describes the computer upon which the program is to be 
compiled. 

j SOURCE-COMPUTER. COPY statement.) 

I SOURCE-COMPUTER, computer-name, j 

COPY is used only when the COBOL library contains the complete text of 
the SOUKCE-COMPUTER paragraph. The COPY statement is described 
in section 6.1. 

Computer name is a word which must appear as the first entry following 
SOURCE-COMPUTER. 3300 and 3500 are the only words permitted as 
computer names in this paragraph. The SOURCE-COMPUTER paragraph 
is used for documentation only, and has no effect on the object program. 


This paragraph describes the computer on which the program is executed. 
OBJECT-COMPUTER. COPY statement, 

OBJECT-COMPUTER, computer-name 

( WORDS 

MEMORY SIZE integer ) CHARACTERS 
I MODULES 



COPY is used only when the COBOL library contains the complete OBJECT- 
COMPUTER paragraph. The COPY statement is described in section 6.1. 

Computer name is a word and must appear as the first entry following the 
paragraph name OBJECT-COMPUTER. The computer names may be either 
3300 or 3500. The integer memory size may be any value and may include 
alphabetic characters. 

This paragraph is used for documentation purposes only and has no effect 
on the object program. 

Example: 

OBJECT-COMPUTER. 3500 MEMORY SIZE 262K WORDS. 
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2.2.3 

SPECIAL NAMES 


This paragraph assigns special control characters and implementor names to 
user defined mnemonic names. Two clauses permit the specification of non¬ 
standard currency conventions. If none of these features is required, this 
paragraph may be omitted. 

Format 1: 

SPECIAL-NAMES . COPY statement. 

Format 1 is used only when the COBOL library contains the entire description 
of all SPECIAL-NAMES used in the program. The COPY statement is des¬ 
cribed in section 6.1. 

Format 2: 

SPECIAL-NAMES , [implementor-name IS mnemonic-name]. ,. 

[.literal IS mnemonic-name] 

[. CURRENCY SIGN ^ literal] 

[, DECIMAL-POINT IS COMMA ]. 

Each mnemonic name defined imder SPECIAL-NAMES must be unique within 
the source program. 


implementor-name IS mnemonic-name 

Implementor names are restricted to the following hardware names: 

SYSTEM-INPUT SYSTEM-PUNCH 

SYSTEM-OUTPUT CONSOLE 

Mnemonic names must be used in references to system files or the console in 
an ACCEPT or DISPLAY statement in the Procedure Division, 


literal IS mnemonic-name 

The non-numeric literal is a one-character identifier used in either of the 
following: 

carriage control in the WHITE ADVANCING mnemonic-name LINES 
statement 

record prefix code in the CODE clause of the Report Description 
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2.3 

INPUT - OUTPUT 
SECTION 


CUEEENCY SIGN ^ literal 

The non-numeric literal is used in the PICTUEE clause to represent a currency 
symbol other than the $ (dollar sign). Alternate currency symbols are used for 
foreign currency. The literal must be a single character and may not be any of 
the following: 

digits 0-9 

alphabetic characters ABODE PESVXZ 
space 

special characters * + - , . ; () " 

If the CUEEENCY SIGN clause is absent, only $ (dollar sign) may be used as 
a currency symbol in a PICTUEE clause. 


DECIMAL-POINT IS COMMA 

This clause indicates that the function of comma and period are exchanged in 
any PICTUEE clause character string and in numeric literals. This clause 
is useful for specifying foreign currency. 

Example: 

SPECIAL-NAMES. 

SYSTEM-OUTPUT IS PEINT, 

'A' IS EJECT, CUEEENCY SIGN IS 'M', 

DECIMAL-POINT IS COMMA. 


This section consists of the header INPUT-OUTPUT SECTION and the two 
paragraphs FILE-CONTEOL and I-O-CONTEOL, If neither paragraph is 
used, the entire section can be omitted. 
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2.3.1 

FILE-CONTROL 


This paragraph names each file, identifies the file device, and allows particular 
hardware assignment. It also specifies alternate input-output areas, the access 
mode and file limits of mass storage files, and the key to accessing random 
access files. 

Format 1: 

FILE-CONTROL . COPY statement. 

Format 1 is used only when the COBOL library contains the entire text of the 
FILE-CONTROL paragraph. The COPY statement is described in section 6,1. 

Format 2: 

FILE-CONTROL. 

j sELECT r OPTIONALl file-name-1 
[. RENAMING file-name-2] 

ASSIGN TO [integer-1] hardware-name-1 dsi-1 

|_’(hardware-name-2 dsi-2j J 
[.FOR multiple 11^}] 

[.RESERVE { } alternate 

[.ACC^S MODE IS 

[, PROCESSING MODE IS SEQUENTIAL ] 
f, ACTUAL KEY IS data-name-1]. I ... 


If file-name-1 is a sort file, only the SELECT and ASSIGN clauses are included 
in the FILE-CONTROL paragraph. If file-name-1 is in the USING or GIVING 
options of the SORT verb, FOR MULTIPLE REEL/UNIT and RESERVE clauses 
may be included in addition to the required SELECT and ASSIGN clauses. (See 
SORT, section 4.7,24). 
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SELECT [OPTIONAL] file-name-1 


The SELECT clause is required for each file described in the Data Division, 
Each file is named only once as file-name-1 in the FILE-CONTBOL para¬ 
graph following the key word SELECT, Each selected file must have a file 
description entry in the Data Division of the source program unless a BE- 
NAMING clause relates the selected file to a file that is the subject of another 
SELECT clause. The SELECT clause for the renamed file must not contain 
the BENAMING option. 

The key word OPTIONAL is required for input files that are not necessarily 
present each time the object program is run. 


BENAMING file-name-2 

If the BENAMING clause is used, file-name-1 uses the file description entry, 
including the associated record description already specified for file-name-2. 
The files do not share the same area unless the SAME ABEA clause appears 
in the I-O-CONTBOL paragraph, File-name-1 is essentially a duplicate of 
file-name-2 except that file-name-1 has its own FILE-CONTBOL paragraph 
entry. File-name-2, the renamed file, may not be a sort file, 

ASSIGN TO [integer-1] hardware-name-1 dsi-1 

ntui n 

L’(hardware-name-2 dsi-2 ,‘ J 


All files used in the program must be assigned to an input or output device 
(hardware name). 

Allowable hardware names are as follows: 

BEADEB SYSTEM-INPUT TAPE TTY (teletypewriter) 

PBINTEB SYSTEM-OUTPUT DISK CBT (211 display) 

PUNCH SYSTEM-PUNCH SCBATCH 

Each hardware name, except SYSTEM-INPUT, SYSTEM-OUTPUT and 
SYSTEM-PUNCH must be accompanied by a data set identifier (dsi), The 
dsi is a 1-4 character alphanumeric identifier used by MASTEB and the 
input-output control system for all references to this file during the running 
of the program. It must not begin with an asterisk (*), and may not be INP, 
OUT, PUN or any COBOL reserved word. 

Integer-1 indicates the number of input-output units of a given hardware name 
assigned to the file name. This option is used for documentation purposes 
only. 
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If alternating tape units are to be used, each must be given a unique dsi. 

Each file on a multi-file reel must have the same dsi. System files do not 
require dsi. 

Examples: 

SELECT PAY-FILE ASSIGN TO TAPE Al, TAPE B2. 

SELECT PAY-FILE ASSIGN TO DISK MSOl. 

When a file is assigned to hardware names TTY and GET, a second identifier 
code, terminal unit identifier, must follow the dsi. (When the hardware-name 
is TTY or CET, only one hardware-name may be specified.) The terminal 
unit identifier (tui) is a 1-4 character alphanumeric code used by MASTEE 
and the input-output control system to determine the local terminal unit as¬ 
sociated with the assigned file. This identifier must match the code assigned 
to the device when it is entered into the MASTEE operating system hardware 
unit table. For further information concerning the tui, refer to the MASTEE 
2.0 Eeference Manual Pub. No, 60213600 and applicable installation procedures 
doc um entati on. 

Examples: 

SELECT TWX-FILE ASSIGN TO TTY ABS AOOl, 

SELECT DISPLAY-FILE ASSIGN TO CET DEF BO 10. 

All equipment assigned, except TTY and CET, must be scheduled on the 
$SCHED card. Additionally, if the system printer, reader or punch are 
to be used directly by the program they must be preempted from MASTEE 
with a $DIEECT card. (See Section 7, Source Program Preparation, Com¬ 
pilation and Execution). 

SCEATCH files are automatically allocated by the I-O control system in the 
system scratch file area. These files exist only for the duration of the job 
and are released by MASTEE at the end of each job. They may be processed 
and used in all respects as a sequential mass storage file might be used. 

Scratch area for these files must be scheduled with the $SCHED card (section 
7.3.2). 

If file-name-1 is a file, only the ASSIGN clause can follow the key word 
SELECT in the FILE-CONTEOL paragraph (section 4.7.24, Sort), 
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rEEEL) 

FOR MULTIPLE I 


The MULTIPLE REEL clause must be included whenever the number of tape 
units assigned, explicitly or implicitly, might be less than the number of 
reels in the file. The MULTIPLE UNIT clause must be included whenever 
the number of mass storage devices assigned might be less than the number 
of mass storage units in the file. This can occur when the file is assigned 
to disk packs. If a random file is located on multiple disk packs, all such 
packs must be mounted on the drives at the time the file is opened. 


alternate 


The RESERVE clause allows the user to modify the number of input-output 
areas allocated by the compiler. The option RESERVE integer-2 ALTERNATE 
AREAS reserves integer-2 areas for the file in addition to the minimum area. 
Tv’'o additional alternate areas may be assigned for unblocked files, one for 
blocked files. The NO ALTERNATE AREAS option is documentary only. This 
clause does not apply to random files. Blocked random files have one alternate 
area; unblocked, no alternate areas. Alternate areas are never allocated to 
files assigned to TTY and CRT. All integers must be positive. 

1 FILE-LIMIT IS ) . . „ __ , 

I fILE-UMTs'Ire (• [THffiJ mteger-4] 

The FILE-LIMIT clause is applicable only to permanent mass storage files 
which mil be internally allocated and/or expanded by the input-output con¬ 
trol system at object time, Integer-3 indicates the number of blocks to be 
initially allocated to the file. The THRU integer-4 option applies only to 
sequential files, 

During program execution the file limits logic operates as follows: 

When an OPEN request is made on a mass storage file, the input-output 
control system attempts to open the file through the MASTER operating 
system. If the request to MASTER is rejected because the file does not 
exist, an internal allocation is performed, using the information furnished 
in the file description entry for the file. Open processing then continues 
in a normal manner. 

If the allocated area is exceeded and the user has specified the THRU 
integer-4 option, the I-O control system autom.atically expands the file by 
ten percent of integer-3. This expansion may continue until the file reaches 
the maximum limit indicated by integer-4. 
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ACCESS MODE IS 


J RANDOM 
) SEQUENTIAL 


The ACCESS MODE clause must be included for mass storage files. When 
ACCESS MODE IS SEQUENTIAL, the mass storage records are obtained or 
placed sequentially. That is, the next logical record is made available from 
the file on execution of a READ statement, or a specific logical record is 
placed into the file on execution of a WRITE statement. No ACTUAL KEY 
entries are necessary for the SEQUENTIAL mode. 


When ACCESS MODE IS RANDOM, mass storage records are organized 
randomly and records are retrieved according to the contents of the ACTUAL 
KEY data name. 


PROCESSING MODE IS SEQUENTIAL 

This clause specifies that mass stor^e records are processed in the order 
in which they are accessed; it is documentary only. 


ACTUAL KEY IS data-name-1 

The ACTUAL KEY clause must be specified for random access files. The 
mass storage control system obtains or writes each record randomly. The 
specific logical record is located through data-name-1 of the ACTUAL KEY 
clause and is made available on execution of a READ statement. When a 
WRITE statement is executed for a random access file, effectively, the 
record is placed at the location in the file specified by data-name-1 of the 
ACTUAL KEY clause. Mass storage records in a random file are processed 
in the order in which they are accessed. 

If a SEEK statement is executed prior to a READ or WRITE, the location of 
the record as specified by the value of data-name-1 is made available to the 
next READ or WRITE executed. 

If no SEEK is issued, the record is automatically located from the value of 
data-name-1 upon execution of a READ or WRITE. The user is responsible 
for setting the value of data-name-1 prior to execution of each SEEK or 
READ or WRITE statement associated with a random access file, 

Data-name-1 is a 12-character numeric group item, subdivided into two 
fields. The first is a seven-character block number indicating the relative 
position of this block from the beginning of the file (1 = the first block, etc.), 
The second field is a five-character position number giving the first character 
position of the record relative to the beginning of a block (0 = the first char¬ 
acter, etc.). 



The ACTUAL KEY item should be defined in the Data Division as follows; 


2 . 3.2 

l-O-CONTROL 


01 RECOED-ADDRESS. 

02 BLOCK-NUMBER PIC 9(7). 

02 RECORD-POSITION PIC 9(5). 

If data-name-1 points to the location of a record outside the specified file 
limits, the INVALID KEY clause of the READ or WRITE is executed. 

The ACTUAL KEY clause is optional for sequential access files. If it is 
specified, the input-output control system updates data-name-1 by the 
following rules; 

After a WRITE is executed, the contents of the ACTUAL KEY data item 
are always implicitly updated. 

Before a READ is executed, the contents of the ACTUAL KEY data item 
are implicitly updated only if the READ was not logically preceded by a 
WRITE. 

Since implicit updating of the ACTUAL KEY data item is a function of the 
input-output control system, changes made by the programmer to the ACTUAL 
KEY data item do not affect the mass storage file processing; but they may 
result in unpredictable values if the programmer makes subsequent reference 
to the contents of the ACTUAL KEY data item, 


The I-O-CONTROL paragraph specifies the points at which rerun is to be 
established, the memory area to be shared by different files, and the loca¬ 
tion of files on a multiple-file reel. 

Format 1: 

I-O-CONTROL. COPY statement. 

Format 1 is used only when the COBOL library contains the complete text of 
the I-O-CONTROL paragraph. The COPY statement is described in section 
6 . 1 . 
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Format 2: 


I-O-CONTEOL. 


RERUN ON hardware-name-3 dsi-3 


I END OF ( REEL ) j 

EVERY \ , (UNIT / > OF file-name-3 

( integer-1 


RECORDS 




; SAME 


( SORT ) 
I RECORD / 


AREA FOR file-name-4 file-name-5 


i MULTIPLE FILE TAPE CONTAINS file-name-6 [POSITION integer-31 


[, file-name-7 [POSTION integer-4]] .,. J ... . 


This paragraph is optional. The file name of a sort file cannot appear in a 
RERUN or MULTIPLE FILE option; nor can a sort file name appear in the 
SAME clause, unless the RECORD option is used. The END OF UNIT option 
may be used only if file-name-4 is a sequentially accessed mass storage file. 


RERUN ON hardware-name-3 dsi-3 EVERY 


END OF 
integer-1 


( REEL ) 
l uNIT / 
RECORDS 


OF file-name-3 


If the RERUN clause is specified, the contents of memory and of all necessary 
registers and the position of all files during execution are saved on the device 
specified by hardware-name-3, This device may be either magnetic tape or 
mass storage. If the dump file is to be on mass storage, the file must be 
allocated. In either case, it must be opened prior to execution with a *DEF 
card. The dsi parameter on the OPEN card must be identical to that specified 
in dsi-3. 

The rerun dump can be used to restart execution at the point where a dump was 
taken (chapter 9, Source Program Execution). If the END OF REEL/UNIT 
option is used, a rerun dump is taken at the end of every reel or unit of the file 
named in file-name-3. The END OF UNIT condition occurs when the next se¬ 
quential physical record is in a file segment of a disk pack other than the pack 
currently mounted on the device assigned to the file. 

If the integer-1 RECORDS option is used, a rerun dump is taken each time the 
number of physical records specified by integer-1 is read from or written on 
the device associated with file-name-3. 


60229400 


2-11 



SAME 


AREA FOR file-name-4 file-name-5 [ • • • 

This clause specifies that two or more files are to use the same memory area 
during processing. If the RECORD option is specified, the files, including any 
sort-files, share only the area in which the current logical record is processed. 
Several files may be open at the same time but the logical record of only one 
file can reside in the record area at one time. 

If the SORT option is used, one or more file names representing sort files may 
appear within the set of file names. For each sort file, the SAME SORT AREA 
clause is interpreted as follows: 

The SORT statement referring to the sort file and any associated input or 
output procedures can use all buffer storage associated with the other files 
in the SAME SORT AREA clause. All other files are thus guaranteed to be 
closed throughout operation of the SORT statement and any associated in¬ 
put or output procedures. 

Files other than sort files in the SAME SORT AREA clause do not share 
the same storage area. If other files are to share the same storage area, 
the user must write a SAME RECORD AREA clause. 

If a SAME AREA clause does not contain the RECORD or SORT option, the 
shared area includes all storage areas assigned to the files; therefore, no 
more than one file may be open at one time. 


SORT 

RECORD 


MULTIPLE FILE TAPE CONTAINS file-name-6 [POSITION integer-3]. , . 

The MULTIPLE FILE clause is required when more than one file shares the 
same reel of tape. Regardless of the number of files on a single reel, only 
those files used in the object program need be specified. If all file names 
have been listed in consecutive order, the POSITION option need not be given. 
If any file in the sequence is not listed, the POSITION relative to the begin¬ 
ning of the tape must be given. Not more than one file on the same tape reel 
may be opened at one time. 

Files on a multiple-file reel are handled in the same manner as other files 
except that OPEN and CLOSE perform the additional functions to locate each 
of the files on the reel. 

The input-output control system searches for and locates any file on an input 
multifile reel which the user opens. If the indicated file is further along the 
tape than the current position, the tape is skipped forward; otherwise, the 
tape is rewound, then skipped forward to the correct file. 
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The files on an output multifile reel are written in the order dictated by the 
logic of the program rather than the order in which they are defined in the 
MULTIPLE FILE clause. If an output multifile reel is to be used as input 
to the same program, the input-output control system assumes that the files 
were written in the order specified by the MULTIPLE FILE clause. 

The input-output control system assumes that all files on the multifile reel 
have the same type of labeling. 

Since no two files on a multifile reel may be open simultaneously, they share 
buffer and record areas automatically. No file which shares a reel with 
another file can extend across reels; that is, a file cannot be on a multifile 
reel and also be multireel. 
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DATA DIVISION 


3 


3.1 

SECTIONS 


The Data Division, required in every COBOL program, contains a full 
description of the data to be processed by the object program. The data 
falls into four categories: 

Data stored on external files 
Data common to more than one subprogram 
Constants and data developed during program operation 
Output reports 


The Data Division is divided into four sections corresponding to the categories 
of data: 

DATA DIVISION. 

[ FILE SECTION. ] 
f COMMON-STOBAGE SECTION. ] 

[WOBKING-STORAGE SECTION. ] 

[ REPORT SECTION. ] 


The Data Division must begin with the header: DATA DIVISION followed by a 
period and a space. Each of the sections is optional; when present, they 
must be in the order of appearance shown in the format above. Each section 
header is followed by one or more sets of entries; the File Section and Report 
Section contain file descriptions followed by associated record description 
entries, the Working-Storage and Common-Storage headers are followed 
by data description entries for independent items, followed by record 
descriptions. 
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3 . 1.1 

FILE SECTION 


3 . 1.2 

COA^MON-STORAGE 

SECTION 


The File Section defines the contents of data files stored on an external de¬ 
vice and the contents of sort files. Each file is defined by a file description 
entry followed by one or more record description entries. A file description 
entry consists of a level indicator (FD or SD), a file name, and a series of 
independent clauses. An external file is described with a level FD entry which 
indicates recording mode, block size, labeling conventions, names of records 
or reports in the file, and so on. Every external file must have a level FD 
file description entry. Sort files are described with level SD entries which 
specify the name, size, and number of records to be sorted. 

FILE SECTION. 

FD file-name-1... 

01 data-name-1... 

02 data-name-2... 

66 data-name-3 RENAMES data-name-2. 


03 data-name-4... 
01 data-name-5... 

02 data-name-6... 

88 condition-name-1... 


01 data-name-7... 
SD file-name-2... 


FD file-name-3... 


During execution of an object program, independently compiled subprograms 
communicate through common storage. Each item in a Common Storage 
Section has a record description entry; all entries are preceded by the header 
COMMON-STORAGE SECTION and a period. All data structures permitted in 
the Working Storage Section are legal in the Common Storage Section. 

A Common Storage Section must be present in each independently compiled 
subprogram so that all references to common storage will be properly defined. 
The item descriptions in each Common Storage Section should be identical in 
format; if they are not, the contents of common storage in memory cannot be 
guaranteed. 
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3 . 1.3 

WORKING-STORAGE 

SECTION 


The system loader loads only the first Common Storage Section encountered. 
Subsequent Common Storage Sections are ignored and all reference to common 
storage items in communicating subprograms are directed to the first Common 
Storage Section loaded. 


During execution of an object program, intermediate results and other 
information need to be stored before being processed further or transferred 
out of memory. The storage areas, called working storage items, are 
contained in the Working Storage Section. 

The Working Storage Section is composed of the section header WOEKING- 
STOEAGE SECTION followed by a period. This header is followed by any 
independent data description entries which are in turn followed by any record 
description entries. Each name of an independent item or a record must be 
unique. Subordinate data names need not be unique if they can be made unique 
by qua,lifica.tion = 

j COMMON-STOEAGE SECTION . } 

I WOEKING-STOEAGE SECTION, j 

77 data-name-1 

88 condition-name-1 


77 data-name-2 
01 data-name-3 

02 data-name-4 


66 data-name-5 EE NAMES data-name-4 
01 data-name-6 

02 data-name-7 

03 data-name-3 

88 condition-name-2 
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3 . 1.4 

REPORT SECTION 


3.2 

DATA DIVISION 
CONCEPTS 


3 . 2.1 

ENTRY 


The Report Writer enables the user to specify the format of reports 
generated by a COBOL program. The Report Section is included when 
the Report Writer module is used. The content and format of reports are 
described in the Report Section. The header REPORT SECTION and a period 
is followed on succeeding lines by entries describing the physical format of 
each report to be produced. 

Section 5 contains a complete description of the Report Writer and Report 
Section entries. 

REPORT SECTION. 

RD report-name-1 

01 [data-name-1] 

02 [data-name-2] 


02 [data-name-3] 
01 [data-name-4] 

01 [data-name-5] 


01 [data-name-6] 
RD report-name-2 


The basic unit of description for the data in all sections is an entry. Each 
entry consists of a level indicator or level number, a name which can be 
referenced elsewhere in the program, and one or more clauses describing 
the data item. The Data Division contains three types of entry: 

File description entries describe physical characteristics of a file. 

Record description entries describe characteristics of items used in 
the program. 

Report and report group description entries describe items generated 
as a report. 

The Working Storage and Common Storage Sections contain record descriptions 
only; the File Section contains file descriptions and record descriptions; the 
Report Section contains report and report group descriptions. 
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3 . 2.2 

ITEM 


An item is an area used to contain data of a particular kind. The COBOL 
language recognizes four kinds of items: 

elementary 0^ 

group t 

independent 

report 

Elementary items are items that are not subdivided into smaller items. A 
group item is subdivided into smaller items which can themselves be group 
or elementary items. Group and elementary items may be used in all sections 
of the Data Division. Independent items are unrelated elementary items not 
contained in a record; each is defined by the special level number 77. Inde¬ 
pendent items are illegal in the File Section. Report items are group or 
elementary items that appear in a report. They may be used only in the 
Report Section (see Report Writer, section 5). 


3 . 2.3 

RECORD A record is the most inclusive item in the File, Working Storage or Common 

Storage Sections. It is usually, but not necessarily a group item. A record 
must have the level number 1 or 01 and a data name. Each item in a record 
must have at least a level number and a data name. In addition, any elementary 
items in a record must have at least a PICTURE or USAGE defined as INDEX, 
COMPUTATIONAL-1, or COMPUTATIONAL-2. Data names of items not at 
the 01 level in a record need not be unique if they can be made unique by 
qualification. In the File Section only, data names at the 01 leyel need not be 
unique since they can be qualified by a file name. 


3 . 2.4 

LEVEL NUMBER The level number shows the hierarchy of data within a record description; 

the more inclusive an item, the lower its level number. Level numbers need 
not be consecutive as long as the less inclusive item has the higher number. 
The specific number is determined by the user. The first entry in a record 
description always has the level number 1 or 01. Group and elementary items 
within a record have level numbers in the range 2-49. 

Special level numbers are assigned to certain entries where there is no real 
concept of level: 

66 identifies RENAMES entries. 

77 identifies independent items. 

88 identifies condition-name entries. 
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3 . 2.5 

DATA NAME 


3 . 2.6 

INITIAL VALUE 


3 . 2.7 

LITERAL 


3 . 2.8 

FIGURATIVE 

CONSTANT 


Every entry must have a subject; that is, a name assigned to the item. This 
data name is used to reference the item from the Procedure Division. It 
must not be qualified or subscripted when used as the subject of a Data 
Division entry. 

The word FILLER may be used instead of a data name as the subject of an 
entry that is never referenced. It may name only an unused elementary item 
within a record. A record containing a FILLER item can be referenced from 
the Procedure Division, although the FILLER item itself cannot. A FILLER 
item must have a level number and any data description clauses that would be 
required for a data-name entry in the same location. 

Report names, file names, library names, and condition names are special 
cases of the data name used in report, description, file description, source 
library, and condition name entries. Appendix B contams the rules for 
forming all data-names. 


The initial value of any item in the Working Storage Section is specified with 
the VALUE clause in the record description entry. 


A literal is an explicit statement of the value to be used in an operation per¬ 
formed by the object program. Literals may be used wherever the format 
indicates. Appendix B contains a description of literals and the rules 
governing their formation. 


Figurative constants are predefined as part of the COBOL language. They 
may be used wherever a literal is allowed in the reference format. A 
complete list of figurative constants is contained in Appendix B. 
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3.3 

FILE DESCRIP¬ 
TION ENTRY 


A file description entry provides information about the physical structure, 
identification, and record names of each file used in the source program. 

Format 1: 


I FD 

t sD 


} 


file-name-1 COPY statement. 


Format 2: 


FD file-name-1 


( j BINARY I 
\ ) DECIMAL ( 


; RECORDING MODE IS 


J ' 


SECTOR 
) TRACK 


DENSITY 


r/ LOW 
^ HIGH 
(HYPER 


j SEGMENTED / 
j CONTIGUOUS ( 


BLOCK CONTAINS [integer-! TO] lnteger-2 [ RECORDS V 

(CHARACTERS/ 


; RECORD CONTAINS [integer-3 TO] integer-4 CHARACTERS 
/data-name-1 


DEPENDING ON 


1 RECORD-MARK 


;LABEL 


RECORDS ARE } ( 

< OMITTED 


RECORD 


IS ( I 


data-name-2 


VALUE OF jg I data-name-4 

-idata-name-3 I J literal-! 


IS 


jdata-name-6( 


I literal-2 ^ 



; DATA 


j RECORD IS 
j RECORDS ARE 


(label-field-2 
’ ) data-name-5 


data-name-7 [, data-name-8] ... 


\ REPORT IS 
’ ] REPORTS ARE 


report-name-! [, report-name-2] ... 


[; SEQUENCED ON data-name-9]. 
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Format 3: 


SD file-name-1 


; RECORD CONTAINS [integer-1 TO] integer-2 CHARACTERS 


DEPENDING ON 


data-name-1 
RECORD-MARK 


; DATA 


j RECORD IS / 
j RECORDS AREj 


data-name-2 [, data-name-3] ... 


Format 1 is used only when the COBOL library contains the entire FD or SD 
entry; format 2 describes external files; format 3 describes sort files. The 
COPY statement is defined in section 6.1. 


The level indicator FD or SD identifies the beginning of each file description 
entry and must precede the file name. All semicolons are optional, but 
the entry must be terminated by a period. The clauses which follow the name 
of the file are optional in many cases, and their order of appearance is 
immaterial. 

The REPORT clause of the FD entry is used only when Report Writer is used; 
it is described in chapter 5. 
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3.4 

DATA DESCRIP- 
TION ENTRY 


A data description entry specifies the characteristics of each particular 
item of data. 

Format 1: 


01 data-name COPY statement 
Format 2: 


level-number 


data-name-1 
FILLER 


[; REDEFINES data -name - 2] 
i PICTURE / 


I 


PIC 


IS character-stringj 
/ INDEX 


DISPLAY 


; USAGE IS 


j COMPUTATIONAL 
ICOMP 


i COMPUTATIONAL-1 
I COMP-1 

{ COMPUTATIONAL-2 


j COMP-2 

[; OCCURS [integer-1 TO] integer-2 TIMES [DEPENDING ON data-name-lj] 


i ASCENDING / 
j DESCENDING j 


KEY IS data-name-2 [, data-name-3] ... 


[INDEXED BY index-name-1 [, index-name-2] ... ] 

r j SYNC ) ( left r 

[’ j SYNCHRONIZED j j RIGHT j 

[' IjUfiedI S2ht] 

[; BLANK WHEN ZERO ] 

[; VALUE IS literal-3]. 


Format 3: 

66 data-name-1 RENAMES data-name-2 [THRU data-name-3]. 
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Format 4: 


88 condition-name 


{ VALUE IS ( 
I VALUES ABE \ 


literal-1 [THBU literal-2] 


[, literal-3 [THRU literal-41] ... . 


Format 5: 

I 

77 data-name-l) PICTURE (IS .. . [USAGE IS]... f VALUE IS]. .. etc. 


All semicolons and commas are optional in the data description, but the entry 
must be terminated by a period. 

Format 1 is used at the 01 level only. It may be used when the complete 
record description is contained in the COBOL library. The COPY statement 
is described in section 6.1. 

Format 2 has a level number in the range 1-49. The clauses are written in 
any order with one exception: the REDEFINES clause, when used, must 
immediately follow the data name. PICTURE must be specified for every 
elementary item unless USAGE is INDEX, COMP-1, or COMP-2. The 
following clauses may be specified only at the elementary item level: 

PICTURE, SYNCHRONIZED, JUSTIFIED, and BLANK WHEN ZERO. 

Format 3 is used with the RENAMES clause for alternate naming of elementary 
items or group items not at the 01 level. The level number must always be 66. 
The RENAMES clause must not be used with independent, level 77, entries. 

Format 4 is used for condition name entries. Each condition name requires a 
separate entry with the level number 88. A condition name is a data name 
assigned to the condition; VALUE(S) specifies the value, values, or range of 
values associated with the condition name. A condition name entry must follow 
the entry describing the variable item with which it is associated. A condition 
name can be associated with any elementary or group item except the following: 

another condition name, a level 66 item, a group of items requiring 
special handling such as synchronization or usage, an index data item. 

Format 5 describes independent items. An independent item is elementary, 
and is not part of a record or in the File Section, The level number must be 
77. Independent items are described with the same clauses used in format 2 
for elementary items. 
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3.5 

DATA DIVISION 
CLAUSES 


3 , 5,1 

BLANK WHEN ZERO 


All clauses in the file and data description reference formats are described 
in this section with the exception of the REPORT clause which is described 
in section 5. The clauses are listed alphabetically. 


The BLANK WHEN ZERO clause permits the blanking of an item when its 
value is zero. 

BLANK WHEN ZERO 

When this clause is specified, the item will contain nothing but spaces if 
the value of the item is zero. This clause may be used only with a 
numerically edited item. 
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3 . 5.2 

BLOCK CONTAINS 


This clause specifies the size of a block or physical record. 


BLOCK CONTAINS [integer-1 TO] integer-2 


j CHARACTERS 

{ records 


BLOCK CONTAINS is required in a file description entry unless the block 
contains exactly one logical record. A file assigned to TTY or CRT cannot 
be blocked. 

Integer-1 and integer-2 are positive integers. 

For a mass storage file the size is stated in terms of RECORDS. The 
CHARACTERS option should be used if one of the following situations exists: 

• Logical records extend across blocks 

• The block contains padding, an area not contained in a logical record 

• Logical records are grouped in such a manner that an inaccurate 
block size is implied 

When the CHARACTERS option is used, the physical record size is specified 
in terms of the number of characters in the physical record. Characters are 
specified in standard data format regardless of their types. 

If only integer-2 is shown, it represents the exact size of the physical record. 

If integer-1 and integer-2 are both shown, they refer to the minimum and 
maximum size of the physical record respectively. 

If logical records of differing size are grouped into one physical record, the 
end of the logical record must be explicitly defined in the record description 
entry unless the RECORD CONTAINS DEPENDING ON option is used. The 
maximum file block size is 131,067 characters. Appendix F describes 
COBOL/MASTER file blocking formats. 

Block 

A block is a physical unit of data that is convenient for storage on an input or 
output device for a particular computer. It is identical with physical record. 
The block size has no direct relationship to the size of the file containing it, 
or to the size of logical records contained in the block. A block is normally 
composed of one or more logical records, or a portion of a logical record. 

Logical Record 

A COBOL logical record is a group of related information, uniquely identifiable, 
and treated as a unit. The concept of logical record is not restricted to file 
data but is carried over into the definition of working storage items. Logical 
records, whether in the File Section, Working Storage, or Common Storage 
Sections are defined by record description entries (section 3.2.3). 
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3 . 5.3 

DATA RECORDS 


The DATA RECORDS clause is required in each file description entry. The 
processor uses it to correlate file and record description entries. 


(RECORDS are/ , . . 

data j re”qoRD is f data-name-7 [, data-naine-8] ... 

The data names are names of data records which must have 01 level numbers. 
The presence of more than one data name indicates that the file contains more 
than one type of data record. The order in which names are listed is 
immaterial. 

Data records in a file need not have the same description. All data records 
within a file are processed from the same record area. The size of this area 
is equivalent to the largest record in the file. 

When the file description entry is for a sort file (SD), the data names identify 
records named in the RELEASE statement. 

This clause or the REPORT clause (Report Writer, section 5) must be included 
in each file description entry. 
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JUSTIFIED 


The JUSTIFIED clause specifies nonstandard positioning of data within a 
receiving data item. 


( JUSTIFIED 
I JUST 


RIGHT 


The JUSTIFIED clause can be specified only at the elementary item level in 
a record description entry. 


The standard rules for positioning data within an elementary data item area 
depend on the category of the receiving item. 


Receiving Item Rule for Positioning Data 


Numeric 


Numeric Edited 


Alphanumeric/ 

Alphabetic 


Data is aligned by decimal point and moved to the 
receiving character positions with zero fill or 
truncation on either end as required. If an assumed 
decimal point is not explicitly specified, the item is 
treated as if an assumed decimal point immediately 
followed the rightmost character. 

Data is aligned by decimal point with zero fill or 
truncation at either end as required within the 
receiving data item, except where editing causes 
replacement of leading zeros. 

Data is moved to the receiving character positions 
and aligned at the leftmost character position with 
space fill or truncation to the right. 


The JUSTIFIED clause cannot be specified for an item described as numeric 
or for a numeric edited data item. 


When the reeeiving item is described with the JUSTIFIED clause and the 
sending item is larger than the receiving data item, the leftmost charaeters 
are truncated; when the receiving item described with the JUSTIFIED clause 
is larger than the sending item, the data is aligned at the rightmost character 
position in the data item with spaee fill. 
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Example: 

Kcture Data 

S9(5) 

S9(4)V9 
S9(4)V9 
X(5) 

X(5) 

X(2) 



Item 



Justified 

Right justified, 
zeros filled-iu. 

No justification, 
aligned by point. 

Illegal; item 
Right jg numeric. 

Right justified; 
Right blanks filled-in. 

Left justified 
normally. 

Right justified. 
Right character 

truncated. 
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3 . 5.5 

LABEL RECORDS 


The LABEL RECORDS clause is required in every file description entry 
regardless of the presence or absence of label records. It identifies labels 
as standard or as nonstandard; but if labels are not present, it specifies that 
they are omitted. 

Format 1: 


LABEL 


\ RECORDS ARE 
) RECORD IS 


STANDARD VALUE OF label-field-1 IS 


Iiteral-1 

data-name-1 


label-fieId-2 IS 


literal-2 
data-name-2 


Format 2: 


LABEL 


' RECORDS ARE j 
i RECORD IS ( 


data-name-3 VALUE OF data-name-4 IS 


literaI-3 

data-name-5 


, data-name-6 IS 


! literal-4 
data-name-7 


Format 3: 


LABEL 


j RECORDS are/ 

{ record is ( 


OMITTED 


Format 1 is used when a file has standard labels (appendix E). All mass 
storage files except scratch files must be specified STANDARD in this clause. 
Mass storage scratch files, may have OMITTED or STANDARD labels. Mass 
storage file labels are maintained by MASTER File Supervisor and are not 
accessible to the user. For any non-mass storage file that has standard 
labels, the record area defined for that file is used by the input-output con¬ 
trol system for processing the header and/or trailer labels. Thus, the user 
may access each label within the USE declarative procedures. 

Format 2 is used when labels are nonstandard or user defined. Data-name-3 
is the name of a label record area. It must not appear in the DATA RECORDS 
clause, and is either the subject of a record description associated with the 
file, or an area in working or common storage. Only the beginning labels are 
checked for files with data name labels. All Procedure Division references to 
the data name specified in this clause, or to any items subordinate to this 
data name, must appear within USE procedures. 

Format 3 is specified when no explicit labels exist for the file or for the device 
to which the file is assigned. Files assigned to TTY or CRT do not have 
labels and OMITTED should be specified. 
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The VALUE OF clause is used only in formats 1 and 2. It specifies the 
values of data items used to identify or create the labels. A figurative 
constant may be substituted for any literal in the format. 

The following label field names are used to define the values of standard labels 


ID 

( identification; 

EDITION-NUMBER 

REEL-NUMBER 

T>T7'T*T7'\r'T‘Tn\T_^VOT TP 

xixj X xj ^ X V./XJXJ 


Mass Storage 

" 1 

identification; 

OWNER 
OWNER-ID 
E DITION-NLTMBER 
ACCESS-PRIVACY 
MODIFICATION-PRIVACY 


The IDENTIFICATION or ID field is required. The specified label fields are 
checked against the label record by the input-output control system. If the 
physical file labels do not agree, the file is not processed. The values of 
these fields must exactly match the values given as parameters on any 
external file control cards. (*DEF cards, section 7.7.3). 

When a label is nonstandard, the VALUE OF clause is required to define the 
values of identifying data items. Each of the subject data names (data-name-4, 
data-name-6, and so forth) is in the label record. The data names or literals 
following IS must be in the Working-Storage Section. The data names in this 
clause can be qualified but not subscripted or indexed, nor can they be 
described by USAGE IS INDEX. 

VALUE OF causes the following action to be taken: 

Input file A label routine checks to see that the value of each label 
record data name or label field is equal to the value of its 
corresponding literal or data name. If any field does not 
compare, the file is rejected and a request is made to 
mount the correct file. 

Output file The value of each label record name or label field is made 
equal to the value of its corresponding literal or data name. 
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3.5.6 

OCCURS 


The OCCURS clause eliminates the need for separate entries when the items 
in a sequence are identical to each other in every respect except value. It 
also supplies information required to subscript or index the repeated items. 


OCCURS [integer-1 TO] integer-2 TIMES [DEPENDING ON data-name-1] 


INDEXED BY index-name-1 [, index-name-2] ... 


j ASCENDING ( 
DESCENDING! 


KEY IS data-name-2 [, data-name-3] 


Each integer must be positive. If both are used, the value of integer-1 must 
be less than that of integer-2. The value of integer-1 can be zero; the value 
of integer-2 can never be zero. 


The OCCURS clause is optional. It cannot be specified in a data description 
entry that has; 


A level number of 01 or 77 

Subordinate item containing the OCCURS.. .DEPENDING ON option 

The OCCURS clause is used to define tables and other homogeneous sets of 
repeated data. The data name which is the subject of the data description 
entry containing the OCCURS clause must be either subscripted or indexed 
when it is referenced by any statement. If the entry containing OCCURS is a 
group item, each data name in the group must also be subscripted or indexed 
when referenced. The other clauses in an entry containing OCCURS apply to 
each occurrence of the item they describe. Three levels of nested OCCURS 
clauses are permitted. 

The DEPENDING ON option is used to specify that the subject of the entry has 
a variable number of occurrences. Integer-1 represents the minimum number 
of occurrences and integer-2 the maximum. If the DEPENDING ON option is 
not specified, integer-2 is the exact number of occurrences and integer-1, if 
specified, is documentary only. Data-name-1 contains the count of the actual 
number of occurrences; its value must not exceed integer-2. Data-name-1 
must be a positive COMPUTATIONAL integer; if it is described in the same 
record as the current entry, it must not be the subject of, or be subordinate 
to, an entry containing an OCCURS.. .DEPENDING ON clause. The value of 
data-name-1 should not be reduced below the actual number of occurrences 
of the data items; otherwise, the content of any data items whose occurrences 
exceed the new value of data-name-1 become unpredictable. An entry con¬ 
taining the DEPENDING ON option must not be the object of a REDEFINES 
clause. 
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When the DEPENDING ON option is specified in a data description in the 
File Section, records written on external devices will be variable in length 
depending on the value of data-name-1. DEPENDING ON may appear only 
once in a record description entry and must be at the last major level of 
the record. 

The KEY IS option indicates that the repeated data is arranged in ascending 
or descending order according to the value of the key data names (data- 
name-2, data-name-3, etc.). This option is required when a SEARCH ALL 
statement is used in the Procedure Division to search the table of repeated 
data. The key data names are listed in descending order of significance. 
Data-name-2 either names the entry containing the OCCURS clause or names 
an entry subordinate to the entry containing OCCURS. 

If data-name-3 or any succeeding key data names are used, each must name 
an entry subordinate to the group item which is the subject of the entry con¬ 
taining OCCURS. Except when data-name-2 is the subject of the OCCURS 
clause, none of the key data names can be the subject of, or subordinate to 
an entry containing an OCCURS clause. 

The INDEXED BY option is required if the subject of this entry (or if it is a 
group, an item within it) is referred to by indexing or is referenced by the 
SEARCH statement. The index name is not defined elsewhere since its 
allocation and format is controlled by the compiler. It is not data, and cannot 
be associated with any data hierarchy. However, an index name must be 
initialized by the SET statement before it is used as a table reference. 

Index name items are one computer word in length and are in binary format 
(COMPUTATIONAL-1). 

The VALUE clause must not be stated in a data description entry which 
contains OCCURS or is subordinate to an entry containing OCCURS. This 
rule does not apply to condition name entries. Initial values of items in 
working storage may be specified in the following manner: 

The table is described as a record with contiguous data description entries 
each of which has a VALUE clause as well as other clauses, (USAGE, 
PICTURE, etc.) required to complete the description. The table must be 
specified again with a REDEFINES clause to show its hierarchical 
structure. The entries subordinate to the REDEFINES entry are repeated 
because of the OCCURS clause; but they must not contain VALUE clauses. 

An alternate method can be used when the table elements do not require 
separate handling because of usage, synchronization, etc. hi this case, 
the value of the entire table can be specified in the entry defining the 
table. The lower level entries specify the hierarchical structure of the 
table with OCCURS; they cannot contain VALUE clauses. 
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Examples: 


1. 01 PARTS-IIST. 

02 A-PARTS. 

03 PART-Al PICTURE 9(10) VALUE xxxxxxxxxx. 
03 PART-A2 PICTURE 9(10) VALUE xxxxxxxxxx. 


03 PART-AIOO PICTURE 9(10) VALUE xxxxxxxxxx. 
02 B-PARTS. 

03 PART-Bl PICTURE 9(10) VALUE xxxxxxxxxx. 

03 PART-B2 PICTURE 9(10) VALUE xxxxxxxxxx. 


03 PART-BIOO PICTURE 9(10) VALUE xxxxxxxxxx. 
02 C-PARTS. 

03 PART-Cl PICTURE 9(10) VALUE xxxxxxxxxx. 


02 J-PARTS. 

03 PART-Jl PICTURE 9(10) VALUE xxxxxxxxxx. 


The above list contains a thousand entries, 100 lower level entries for each 
02 level entry and 10 entries at the 02 level. To reference the list by sub¬ 
scripting or indexing, it must be redefined as: 

01 PARTS-TABLE REDEFINES PARTS-LIST. 

02 LIST OCCURS 10 TIMES. 

03 PART PICTURE 9(10) OCCURS 100 TIMES. 

2. If the list PARTS-LIST has a varying number of occurrences of the entries 
at the 02 level, it is redefined as follows: 

01 PARTS-TABLE REDEFINES PARTS-LIST. 

02 PART PICTURE 9(10) OCCURS 1 TO 150 DEPENDING ON 
PART-NUMBER. 

In this case, the number of occurrences is contained in the data item named 
PART-NUMBER with the following data description. 

77 PART-NUMBER PICTURE 999 COMPUTATIONAL VALUE xxx. 

Value must be a positive integer. 
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3. A table referenced by a SEARCH statement or by indexing can be 
described as follows: 

01 DATA-LIST OCCURS 25 TIMES INDEXED BY LIST-INDEX, 
ITEM-INDEX. 

03 ITEMA PICTURE 9(3) OCCURS 10 TIMES 

The SET statement can be used to set the initial values of LIST-INDEX 
and ITEM-INDEX: 

SET LIST-INDEX TO 25. SET ITEM-INDEX TO 10. 

4. A table to be searched by the SEARCH ALL statement can be described 
as follows: 

01 DATA-LIST OCCURS 25 TIMES INDEXED BY LIST-INDEX, 
ITEM-INDEX DESCENDING KEY IS DATA-LIST, ITEM-KEY. 

03 


03 

When a table area or record area requires subscripting or indexing, hardware 
indexing is employed only if the defined area is less than 16,383 characters. 
For a larger area, however, software logic is used for subscriptii^ and 
indexing. Thus, subscripting and indexing may be slower if the defined area 
is greater than 16,383 characters. 


ITEMA OCCURS 10 TIMES. 

05 AVALUE PICTURE 9(7) 

oo T7ATA T7AT YTTrio A TT* 1 rriTTT?TT nnnnnn 

oo vnj-ir^ rxxvni x xxixxu aooova, 

ITEM-KEY PICTURE X. 
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3 . 5.7 

PICTURE 


The PICTURE clause describes general characteristics and editing require¬ 
ments of an elementary item; it may be used only at the elementary item level. 

I IS character string 

A character string consists of a maximum of 30 characters from the COBOL 
set. The particular combination of characters determines the category of 
the item. Six categories of data may be described with a PICTURE clause: 
alphabetic, numeric, alphanumeric, alphanumeric edited, numeric edited, 
and floating point edited. 

The number of symbols that represent character positions indicate the size 
of an item. (Size means the number of character positions occupied by the 
item in standard data format.) For instance, an item containing 12 character 
positions is represented by a PICTURE clause containing either 12 symbols, 

A AAA AAAAAAAA, or the integer 12 in parentheses following the symbol, 
A(12). An integer in parentheses can be used to show the number of con¬ 
secutive occurrences of the symbols: AX9PB0*, + -Zor the currency 
sign. 

Alphabetic 


PICTURE 

PIC 


The PICTURE string for an alphabetic item contains only the symbol A 
specified as many times as required. The item may contain any combination 
of letters of the alphabet and spaces not exceeding 131,067 alphabetic 
character positions. 

Numeric 


The PICTURE string for a numeric item is composed of the symbols 9 P S V. 
The item may contain any combination of numerals 0123456789 and an 
optional plus (+) or minus (-) sign. The maximum size of the item is 18 
numeric digit positions. 

Alphanumeric 

The PICTURE string for an alphanumeric item may contain the symbols A X 
and 9 only. It may contain all X’s, but not all A's or all 9’s; and an alpha¬ 
numeric item is always treated as if it were all X's. Contents of the item are 
characters allowable in the computer's character set. The maximum size of 
the item is 131,067 alphanumeric character positions. 

The following three categories are PICTURES of edited items. Editing alters 
the format or the punctuation of data in an item; characters can be suppressed 
or added. 
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Numeric Edit 


The PICTURE string for a numeric edited item contains only the symbols 
BPVZ09, ./*+ - CR DB and the currency sign. Allowable symbol 
combinations are determined by the order of precedence of symbols and 
editing rules. A maximum of 4095 character positions may be represented 
in the character string, but only 18 may be numeric digit positions. Contents 
of character positions representing digits must be numerals 0-9. 

Alphanumeric Edit 


The PICTURE string of an alphanumeric edited item contains the symbols 
A X 9 B 0; combinations are restricted to: at least one B and one X or 
at least one 0 and one X or at least one 0 and one A. 

An alphanumeric edited item contains characters allowable in the computer’s 
character set not exceeding 4095 alphanumeric character positions. 

Floating Point Edit 

The PICTURE string of a floating point edited item is restricted to the 
following symbols in the order listed: 

+ or - 

One to eleven 9's with leading, embedded, or trailing decimal point 
or scaling symbol V (the coefficient). 

Letter E 

+ or - (sign of the exponent) 

Three 9's (value of the exponent) 

The initial plus indicates that a plus sign represents positive values and a 
minus sign negative values; the initial minus indicates that blank represents 
positive values, a minus negative values. The maximum size is 18 alpha¬ 
numeric character positions; the coefficient can have up to 11 numeric digit 
positions and the exponent 3 numeric digit positions. 

CAUTION: The PICTURE clause defines the characteristics of the 
expected contents in a data item, and the code generated by the 
compiler is dependent upon the PICTURE descriptions. During 
object program execution, the actual contents of the data item are 
assumed to conform with the PICTURE. No data validation is 
ever performed by the generated code. If invalid data is introduced 
to the program the course of events is unpredictable. 
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Definition of Symbols Used in PICTURE 


Symbol Definition 

A Represents character position which can contain only a 

letter or a space; it is counted in size of item. 

X Represents a character position containing any allowable 

character from computer’s character set; it is counted 
in size of item. 

9 Represents a character position which contains a 

number; it is counted in the size of the item. 

P Indicates an assumed decimal scaling position when this 

position does not occur within the number that appears 
in the data item. It is not counted in the size of a 
numeric data item, but it is counted in determining the 
maximum size of a numeric edited item used as an 
operand in an arithmetic statement. P can appear only 
to the left or right in a string of one or more P's within 
the character string. The assumed decimal point is 
to the left of the leftmost P or to the right of the right¬ 
most P; each P represents an implied character position 
(treated as zero) between the assumed decimal point 
and the leftmost character of the data item if the P's are 
to the left and the rightmost character if the P's are 
to the right. The assumed point location may be up to 
31 places to the right or 30 places to the left of the 
rightmost digit position in the picture. The symbol V 
is redundant when P is specified. 

For example, a data item containing the number 2567 is 
treated as 256700 if the PICTURE is 9999PP; or as 
. 002567 if the PICTURE is PP9999. 

S Indicates the presence of an operational sign (+ or -) 

and must be written as the leftmost character of a 
PICTURE string. It is not counted in determining the 
size of an item. (This character is used for documenta¬ 
tion purposes only.) 

V Indicates the location of an assumed decimal point for 

aligning items during computation. It does not repre¬ 
sent a character position and is not counted in determin¬ 
ing the size of an item. V may appear only once in a 
PICTURE string. V is redundant when the assumed 
decimal point is to the right of the rightmost symbol in 
the PICTURE string. 
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Definition 


Symbol 

B 

Z 

0 

(zero) 

J 

(comma) 

(period) 


CR 

DB 

* 

(asterisk) 


/ 

(slash) 

currency 

symbol 

$ 


E 


Represents a character position into which a space is 
inserted. It is counted in the size of the item. 

Represents the leftmost leading numeric character 
position to be replaced by a space when the contents 
of that position and all positions to the left of it are 
zero. Each Z is counted in the size of the item. 

Represents a character position into which the digit 0 
will be inserted. Each 0 is counted in the size of the 
item. 

Represents a character position into which the comma 
will be inserted. It is counted in the size of the item. 

Represents the decimal point for alignment purposes 
as well as a character position into which the period 
will be inserted. It is counted in the size of the item. 


X KJX d 


pi.ogxci.JLii i/iic:; xuLiiotioiio ox i/iic; pe; 


X XOO CtlKUl 


comma are exchanged if DECIMAL-POINT IS COMMA 
is specified in the SPECIAL-NAMES paragraph of the 
Environment Division, hi this special case, all rules 
for a period apply to the comma, and rules for the 
comma apply to the period wherever they appear in a 
PICTURE clause. 


Used as editing sign control symbols to represent the 
character position into which the symbol is placed. 
These four symbols are mutually exclusive in any one 
PICTURE string. Each character is counted in 
determining the size of the item. 

Represents a leading numeric character position into 
which an asterisk is placed when the contents of that 
position is zero. Each * is counted in determining 
the size of the item. 


Represents a character position into which the slash 
character will be inserted. It is counted in the size 
of the item. 


Represents a character position into which the symbol 
will be placed. The dollar sign or a single character 
specified in the CURRENCY SIGN clause of the 
SPECIAL-NAMES paragraph in the Environment 
Division. It is counted in the size of the item. 

Used in the PICTURE string of a floating point edited 
item to indicate the exponent. It is counted in the 
size of the item. 
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Examples: 


PICTURE 

Alphabetic 

AAAAA or A(5) 

Numeric 

999 

99V999 

S99V99 

PPP9999 

SPPP9999 

S999PPP 

Alphaniuneric 

XXXXXXXX or X(8) 

XXXXXXXX or X(8) 

AAAX999 


Data Item 



Result Item 
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PICTURE 
Numeric Edit 
$99 
$$$99 
ZZZ99 
99.99 

00 

++999 

+999 


A ] "nTiQ n ii'Tn p'Ti p E(3it 
BBBXXXB 


OOOXXX 


Floating Point Edit 
+9.E+999 

+999.9E+999 

+.99999E+999 

-999.99E+999 

-9.99E+999 


Data Item 


[1 





0 

0 

0 

0 

! 






0 

0 

0 

0 

0 


0 

0 

3 






0 

0 

0 

1 

0 

7 5 



0 

0 

2 

8 

2 


0 

00 

2 


A 

B 

C 




a 


Value of Data 
+4.0 


-3.125 


+15275. 
+74.325 
-84.2 


Result Item 


$ 4 8 


$ [4 |8 
A |a |9 |2 13 


4 8 . 3 4 


* * * 1 0 . 7 5 


+ 2 8 2 


+ 2 8 2 


A A A A B C A 


0 0 0 1 2 3 


+ 4, E + 0 0 0 


3 1 2. 5 E - 0 0 2 


1 5 2 7 5 E + 0 0 5 


7 4 3 . 2 5 E - 0 01 


8 . 4 2 E + 0 0 1 


60229400 


3-27 




3 . 5.8 

PICTURE EDIT 


Editing Rules 

Editing is accomplished by insertion or by suppression with replacement. 
Insertion editing consists of simple insertion, special insertion, fixed 
insertion, and floating insertion. Suppression with replacement editing 
consists of zero suppression with replacement by spaces or asterisks. 
Simple insertion editing is performed only on alphanumeric edited items. 
All types of editing may be performed on numeric edited items with the 
following restrictions: 

Floating insertion editing and suppression with replacement editing 
cannot be used in the same PICTURE. 

One type of replacement (either spaces or asterisks) with zero 
suppression can be used in the same PICTURE. 

A variable length item cannot be edited. 

Simple Insertion Editing 

Insertion characters are: , (comma), the letter B, / (slash), and 0 (zero). 
If the item is alphanumeric edited, only B or 0 may be used. Insertion 
characters are counted ia the size of the item and represent the position in 
the item into which the character is inserted. 

Examples: 


PICTURE 

9,999 

99/99/99 

09/99/99 

BB99.99 


Data Item 



0 

0 

0 

0 


0 

hi 

hi 

hi 

hi 

□ 







hi 

|2| 

1^1 


H 








0 

0 

0 

0 

0 

0 


Result Item 



Special Insertion Editing 

The only special insertion character is the period. It also represents the 
decimal point for alignment purposes. When used as an actual decimal point, 
the period is counted in the size of the item. An assumed decimal point 
represented by the symbol V may not appear in the same PICTURE string 
as an actual decimal point represented by a period. When the period is the 
last symbol in the PICTURE string, it must be followed immediately by one 
of the punctuation characters, semicolon or period, followed by a space. 

The result of special insertion editing is the appearance of the insertion 
character in the item in the same position as shown in the character string. 
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Fixed Insertion Editing 


The fixed iasertion characters are the currency symbol (cs) and the editing 
sign control symbols: + - CR and DB. Only one currency symbol and only 
one editing control symbol can be used in a given PICTURE string. CR and 
DB must be the rightmost character positions in the item; they are each 
coimted as two character positions in determining the size of the item. The 
symbol + or - must be either the leftmost or the rightmost character position 
in the item. The currency symbol must be the leftmost character position 
unless it is preceded by a + or a The +, the and the currency symbol 
are each counted in determining the size of the item. 

Fixed insertion editing results in the insertion of the editing symbol in the 
same position in the item as it occupied in the PICTURE. The result depends 
on the value of the item: 


Symbol in 

Picture Character String 

Result 

Data Item Positive 

Data Item Negative 

+ 

+ 

- 

- 

space 

- 

CR 

2 spaces 

CR 

DB 

2 spaces 

DB 


Examples: 


PICTURE 

+999 

+999,999 

-999 

-99.99 

99.99DB 

99.99DB 

99.99CR 

99.99CR 

$BB999.99 

$00999.99 


Data Item 



Result Item 
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Floating Insertion Editing 

The symbols used for floating insertion are: the currency symbol (cs), and 
the editing sign symbols + or They are mutually exclusive as floating 
insertion characters in a given PICTURE string. Floating insertion editing is 
indicated by using at least two of the floating symbols in the leftmost numeric 
character positions. Any other insertion symbols embedded in the string of 
floating insertion symbols or to the immediate right of the string are part of 
the floating string. 

Floating insertion in a PICTURE may be represented in two ways: 

Any or all leading numeric character positions to the left of the decimal 
point are insertion symbols. 

All numeric character positions in the picture are represented by the 
floating insertion symbol. 

The first case results in a single insertion character placed in the position 
immediately preceding the first nonzero character or the decimal point, 
whichever is encountered first. 


The result in the second case depends on the value of the data. If the value is 
zero, the entire edited item will contain spaces. If the value is not zero, 
the insertion character is placed in the position immediately preceding the 
first nonzero character or the decimal point, whichever is encountered first. 


Examples: 

PICTURE Data Item 

-or 7(-) 

7(+) 

4(+). 99 
$$$$$.99 
7($) 

5($).99 



Result Item 


<1 

A 

A 

A 

A 

A 

<1 


A 

A 

A 

+ 

1 

2 

3 


A 

A 

- 

1 

• 

2 

3 


A 

$ 


3 

• 

3 

3 



A 

- 

A 

A 

A 

A 


A 

A 


$ 


2 

5 


The PICTURE character string must contain at least one more floating 
insertion character than the maximum number of significant digits in the 
item to be edited. All floating insertion characters are counted in the size 
of the item. 
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Zero Suppression Editing 


Suppression of leading zeros in numeric character positions is indicated by 
the symbols Z or * in the PICTURE string. If Z is used, leading zeros are 
replaced by the space; if * is used, leading zeros are replaced by the asterisk. 
The PICTURE string contains one or more of either symbols in the leading 
numeric character positions. Any of the insertion characters embedded in or 
to the immediate right of this string are part of the string. The symbols + - 
* Z and the currency symbol (cs) are mutually exclusive within a given 
PICTURE string. 

Zero suppression within a PICTURE string may be represented in two ways: 

Any or all leading numeric character positions to the left of the decimal 
point are represented by suppression symibols. 

All numeric character positions are represented by suppression symbols. 

In the first case, any leading zero in the data which corresponds to a symbol 
in the string is replaced. Suppression terminates with the first nonzero digit 
or at the decimal point, whichever is encountered first. 

In the second case, the result depends on the value of the data. If the value is 
zero, the entire data item is set to spaces when the suppression symbol is all 
Z or all *, except the decimal point when the symbol is *. If the value is not 
zero, the result is the same as if the suppression characters were only to the 
left of the decimal point. 

When the asterisk is used as a suppression symbol and the clause BLANK 
WHEN ZERO also appears in the same entry, zero suppression editing 
overrides the function of BLANK WHEN ZERO. 
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Examples of Zero Suppression Editing: 


PICTURE 
ZZ999 
ZZZ,999.99 
Z99,999.99 
$ZZZ, ZZ9.99 
$ZZZ,ZZZ.99 
_ 00 

*** ^ 00 
00 

-ZZZ,ZZZ 

$ZZZ,ZZ9.99CR 

$ZZZ,ZZ9.99DB 

$(4),$$9.99 

$(4),$$$.99 

zzzz.zz 

$$$$,$ZZ.99 


Data Item 


0 

0 

9 


3 




0 

5 

A 

3 

4 

5 


0 

0 

_1 

A 

3 

3 

4 



0 

0 

0 

1 

2 

3 



0 

0 

0 

0 

1 

A 



0 

0 

1 

2 

3 

4 

1 

1 

2 

3 


5 

3 

1 

1 

2 

3 

4 

5 

5 



0 

0 

0 

0 

1 

2 

1 

1 

2 

3 

4 

5 

6 


0 

0 

0 

1 

2 

“h 

3 



3 

0 

1 

2 

3 

3 



0 

0 

0 


0 

3 

1 

0 

0 

0 

0 

0 

3 


0 

0 

0 

0 

0 

3 


Result Item 


A A 9 2 3 


A 1 2, 3 4 5 .0 0 


A 0 0 ,012.34 


$ A A A A A A 1.23 


$ A A A A A A A .12 


$** 1,2 3 4.0 0 


$ 1 2 3,4 5 6.0 0 


$******1.23 


A A A A A 1 2 


$ 1 2 3 , 4 5 6 . 0 0 C R 


$AAAAAA1. 23AA 


A A A A $ 1 2 3 . 4 0 


A A A A A A A $ .00 


A A A A A A A 


illegal picture 
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3 . 5.9 

RECORD CONTAINS The RECORD CONTAESIS clause of a file description entry specifies the 
size of data records in the file. 


RECORD CONTAINS [integer-3 TO] integer-4 CHARACTERS 


DEPENDING ON 


i data-name-1 
RECORD-MARK 


This clause is not required. When present, however, the following rules 
apply: 

Integer-3 and mteger-4 must be positive integers. Only integer-4 is 
used when all data records in the file have the same size. In this case, 
integer-4 represents the exact number of characters in each record. 
When integer-3 and integer-4 are both shown, integer-3 refers to the 
minimum number of characters in the smallest data record and integer-4 
refers to the maximum number of characters in the largest data record. 

Size is specified in terms of the number of characters in the logical 
record. These characters are given in standard data format regardless 
of types within the logical record. Record sizes are determined 
according to the rules for obtaining the size of a group item. The maxi¬ 
mum record size is 131,067 characters. 

The DEPENDING ON option provides a key field (data-name-1) which governs 
the size of the record. Normally, it is a field within the record but may be 
located elsewhere. Data-name-1 may be a BCD integer or a binary number. 

If data-name-1 is binary (COMPUTATIONAL-1) the key field is prefixed at 
the beginning of each record by the input-output control system. A prefixed 
key field format is called a imiversal record. 

If RECORD MARK is specified, each record is terminated by a special 
character, external 32g (0,2,8 multiple punch). Reading or writing 
terminates when the RECORD MARK is encountered. 

Files assigned to TTY or CRT must have fixed length logical records. 
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3 . 5.10 

RECORDING MODE 


The EECORDING MODE clause of a file description entry specifies the 
manner in which data is recorded on external storage devices. 


RECORDING 
MODE IS 


j BINARY ) 
j DECIMAL I 

(sector j 

I TRACK j 


/ LOW \ 

J HIGH > 

( HYPER ) 
( SEGMENTED H 
j CONTIGUOUS IJ 


DENSITY 


For magnetic tape, the density settings are: LOW=200 bpi, HIGH=556 bpi, 
and HYPER=800 bpi. If this clause is not present, a RECORDING MODE of 
DECIMAL HIGH DENSITY will be assumed. 


The SECTOR/TRACK and SEGMENTED/CONTIGUOUS options apply only to 
mass storage files. When the FILE-LIMITS clause of the Environment 
Division is specified, the input-output control system will internally allocate 
and/or expand permanent mass storage files at object time. This allocation 
is performed according to the RECORDING MODE specification. SECTOR 
indicates that the minimum unit of allocation is a sector; TRACK that it is a 
track. SEGMENTED means that the file may be located in different areas of 
the same disk file. The MASTER file supervisor keeps track automatically 
of the locations of file portions. If CONTIGUOUS is specified, the file is 
assigned to one area large enough to hold the entire file on a single device 
(disk file or disk pack). The input-output control system automatically 
releases any unused portion of any file specified as SECTOR SEGMENTED. 

If RECORDING MODE is not specified for mass storage files, SECTOR 
SEGMENTED is assumed. Whenever possible, mass storage files should 
be allocated in CONTIGUOUS mode to minimize read/write head movement, 
thus increasing the rate of processing. 


A file assigned to TTY or CRT is always assumed to have a recordir^ mode 
of DECIMAL. 
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3 . 5.11 

REDEFINES 


The REDEFINES clause allows data items in the same physical area in 
memory to be specified in an alternate manner. The data is not changed, 
only the method of referencing the data; this includes giving the item a new 
name. 

level-number data-name-1; REDEFINES data-name-2 

The level number of data-name-1 must be the same as that specified for 
data-name-2; it may not be 66 or 88. This clause may not be at the 01 level 
in the File Section. Implicit redefinition is provided by the DATA RECORDS 
clause in the file description entry. 

Entries giving the new description of the area in memory must immediately 
follow entries describing the area being redefined. Redefinition starts at 
data-name-2 and ends when a level number less than or equal to that of data- 
name-2 is encountered. Unless data-name-1 is at the 01 level, it must 
specify an area in memory the same size as that of data-name-2. 

The data-name-2 entry cannot contain an OCCURS clause and cannot be sub¬ 
ordinate to an entry containing an OCCURS clause. Nor can an OCCURS 
clause with the DEPENDING ON option be specified for any entries in the 
original item or its redefinition. 

Example: 

01 LIST. 

02 PART-1 PICTURE 999 VALUE IS xxx. 

02 PART-2 PICTURE 999 VALUE IS xxx. 

02 PART-3 PICTURE 999 VALUE IS xxx. 


02 PART-50 PICTURE 999 VALUE IS xxx. 

01 NEW-LIST REDEFINES LIST. 

02 PARTS PICTURE 999 OCCURS 50 TIMES. 
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3 . 5.12 

RENAMES 


The RENAMES clause permits alternate, possibly overlapping, groupings 
of elementary items. 

66 data-name-1, RENAMES data-name-2 [THRU data-name-3] 

All RENAMES entries associated with a given entry must immediately follow 
the last data item description in the entry. One or more RENAMES entries 
may be written for a given record description. 

Data-name-2 and data-name-3 must be names of elementary items or groups 
of elementary items in the associated record description entry; they must not 
be the same data name. Data-name-2 must precede data-name-3 in the 
record description. Data-name-3 must not be subordinate to data-name-2. 

A level 66 entry cannot rename another level 66 entry nor can it rename a 
level 77, level 88, or level 01 entry. 

Data-name-1 must not be used as a qualifier and may be qualified only by the 
names of level 01 or FD entries. Data-name-2 and data-name-3 may be 
qualified. Neither data-name-2 nor data-name-3 may have an OCCURS 
clause in its data description entry nor be subordinate to an item that has an 
OCCURS clause in its data description entry. 

When the THRU option is specified, data-name-1 is a group item which 
includes all elementary items starting with data-name-2 if data-name-2 is 
an elementary item, or the first elementary item in data-name-2 if data- 
name-2 is a group item, and concluding with data-name-3 if data-name-3 is 
an elementary item, or the last elementary item in data-name-3 if data- 
name-3 is a group item. 

When the THRU option is not specified, data-name-2 can be either a group 
or an elementary item. If data-name-2 is a group item, data-name-1 is 
treated as a group item; if data-name-2 is an elementary item, data-name-1 
is treated as an elementary item. 

Examples: 

1. 01 DATE-WORD. 

02 YEAR-1 PICTURE 99. 

66 YEAR-2 RENAMES YEAR-1. 

02 MONTH-1 PICTURE 99. 

66 MONTH-2 RENAMES MONTH-1. 

02 DAY-1 PICTURE 99. 

66 DAY-2 RENAMES DAY-1. 

66 DAY-3 RENAMES DAY-1. 
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2. 01 DETAIL. 

03 ITEM-NUMBER PICTURE 9(4). 

03 VENDOR-IDENT. 

05 VENDOR-CLASS PICTURE 9(3). 

05 VENDOR-NUMBR PICTURE 9(5). 

03 CUST-IDENT. 

05 CUST-CLASS PICTURE 9(3). 

05 CUST-NUMBR PICTURE 9(5). 

66 ALL-IDENT RENAMES VENDOR-IDENT THRU 
CUST-IDENT. 

3 . 5.13 

SEQUENCED ON The SEQUENCED ON clause of a file description entry indicates the location 

of the identification field of a record accessed by RESPOND. RESPOND is 
the remote file processing system for the 3300/3500 computer configurations. 

SEQUENCED ON data-name-9 

If the FD entry for a file contains this clause and also specifies: 

RECORD CONTAINS integer-1 TO integer-2 CHARACTERS 
DEPENDING ON data-name-n 


where data-name-n is defined as 


USAGE IS 


COMP-1 

COMPUTATIONA L-1 


The input-output control system will insert the following information into the 
mass storage file label when the file is created: 

Leftmost character position, relative to the beginning of the record, of 
the identification field (data-name-9) 

Identification field length 

Identification field mode (numeric or alphanumeric) 

See appendix F for the description of the mass storage file label. 
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3 . 5.14 

SYNCHRONIZED 


The SYNCHRONIZED clause specifies positioning of an elementary item 
within a computer word or words. 

SYNCHRONIZED ) ( LEFT 
SYNC r 1 RIGHT 

This clause may appear only with an elementary item. 

SYNCHRONIZED specifies that the COBOL compiler, in creating the internal 
format of this item, must place the item in the minimum number of computer 
words which can contain it. If the size of the item, explicit or implicit, is 
not an exact multiple of the number of characters in a computer word, the 
character positions between the item and the computer word boundary cannot 
be assigned to another item. Such unused character positions are included in: 

the size of any group to which the elementary item belongs; and 

the computer memory allocation when the elementary item appears as 
the object of a REDEFINES clause. 

SYNCHRONIZED LEFT (SYNC LEFT) specifies that the elementary item is 
positioned to begin at the left boundary of a computer word. 

SYNCHRONIZED RIGHT (SYNC RK5HT) specifies that the elementary item is 
positioned to terminate at the right boundary of a computer word. 

When a SYNCHRONIZED item is referenced in the source program, the original 
size of the item, as shown in the PICTURE clause is used in determining any 
action that depends on size, such as justification, truncation, or overflow. 

If the data description of an item contains the SYNCHRONIZED clause and an 
operational sign, the sign of the item appears in the normal operational sign 
pesition of the computer whether the item is SYNCHRONIZED LEFT or 
SYNCHRONIZED RIGHT. 

When the SYNCHRONIZED clause is specified for an item within the scope 
of an OCCURS clause, each occurrence of the item is SYNCHRONIZED. 

(See OCCURS.) 

Items described as SYNCHRONIZED in the File Section are assumed on input 
to be synchronized on the external device, and on output are written in 
SYNCHRONIZED form on external device. 

If the elementary item immediately preceding an item containing the 
SYNCHRONIZED clause does not terminate at a word boundary, the remaining 
character pusitions are regarded as FILLER and are not addressable. 
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Examples: 


SYNCHEONIZED 


PICTUEE 


Data 


S9(3)V 

S9(3)V 

S9(3)V 

S9(3)V 

S9(5) 

S9(5) 

X(9) 


1 

2 

+ 

3 

1 

1 

2 

3 


1 


3 




2 

3 



1 

2 

3 

1 

1 

2 

3 


A 

B 



E 


G 

H 

I 


EIGHT 

LEFT 

EIGHT 

LEFT 

EIGHT 

LEFT 

LEFT 


X(9) 


0 

B 

0 

a 

0 

a 

G 

0 

□ 


EIGHT 


Eesult Item 
(machine words) 



A 

B 

C 

D 

E 

F 

G 

H 

I 

1 

1 



m 

Wa 

M 

A 

B 

C 

D 

E 

F 

G 

H 

I 
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3 . 5.15 

USAGE 


The USAGE clause specifies the format of a data item in storage. 


USAGE IS 


I DISPLAY 

( COMPUTATIONAL ) 

) COMP } 

( COMPUTATIONAL-1 
1 COMP-1 

( COMPUTATIONAL-2 
1 COMP-2 
INDEX 


The USAGE clause can be written at any level; at a group level, it applies to 
each elementary item in the group. The USAGE clause of an elementary item 
cannot contradict the USAGE clause of a group to which the item belongs. 

If USAGE is not specified for an elementary item, or for any group to which 
the item belongs, usage is assumed to be DISPLAY. DISPLAY indicates 
that the data is standard data format. Standard data format uses the decimal 
system to represent numbers (regardless of the radix used by the computer), 
and the remaining characters in the COBOL character set to describe non¬ 
numeric data items. 

A COMPUTATIONAL item contains a value to be used in computations; it 
must be numeric. The PICTURE string of a COMPUTATIONAL item without 
an integer suffix can contain only 9 S V and one or more P’s. If a group 
item is described as COMPUTATIONAL, the elementary items in the group 
are COMPUTATIONAL; however, the group item, itself, is not COMPUTA¬ 
TIONAL since a group cannot be used in comjxitations. A COMPUTATIONAL 
item is stored in standard data format and its sign is stored over the low- 
order numeric digit. Its size must not exceed 18 numeric digits. 

COMPUTATIONAL-1 describes an elementary item in fixed point binary 
format. Such an item occupies one computer word (24 bits) and its value 
may not exceed 223-1. a fixed point binary number consists of a sign bit 
and coefficient as shown below: 

2322 _00 

coefficient 

T 

sign bit 
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The binary point is assumed to be immediately to the right of the lowest 
order bit (00). The upper bit of any fixed number designates the sign of the 
coefficient (23 low order bits). 

Sign Bit Coefficient 

1 Negative 

0 Positive 

COMPUTATIONAL-2 describes an item in floating point format. Such an 
item occupies two computer words (48 bits) and is stored as follows: 


4746 


35 


00 


Exponent 


Coefficient 


Sign bit 


The coefficient consists of a 36-bit fraction in the low order positions of the 
floating point word. The coefficient is a normalized fraction; it is equal to 
or greater than 1/2 but is less than 1. The highest order bit position (47) 
is occupied by the sign bit of the coefficient. 

Sign Bit Coefficient 

1 Negative 

0 Positive 

The floating point exponent is expressed as an 11-bit quantity with a value 
ranging from 0000 to 37778- It is formed by adding a true positive exponent 
and a bias of 2000g or a true negative exponent and a bias of 1777g. This 
results in an effeictive exponent modulus of ±1023^^. 

For further information concerning fixed point and floating point arithmetic, 
refer to the 3300 Computer Systems Reference Manual, Pub. No. 60157000. 

The only meaningful clauses to be used with COMPUTATIONAL-n are the 
VALUE and REDEFINES clauses. COMPUTATIONAL-n items are 
synchronized left. 

USAGE IS INDEX describes an elementary item as an index data item. An 
index data item is always one computer word in length in binary format; 

USAGE IS INDEX has the same effect as USAGE IS COMPUTATIONAL-1. 

An index data item is referred to by a SEARCH or a SET statement. It 
contains the character address bias of a table element. (The character 
address bias is the value added to the base character address of a table to 
give the character address of a particular element in the table.) An index 
data item can also appear in a relation condition, but it cannot be a conditional 
variable. 
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If a group is described with USAGE IS INDEX, all the elementary items in 
the group are assumed to be index data items. The group itself cannot be 
an index data item and cannot be referenced in a SEARCH or SET statement 
or a relation condition. The group can be referenced in a MOVE or an input- 
output statement; but no conversion takes place. 

SYNCHRONIZED, JUSTIFIED, PICTURE, VALUE, and editing clauses cannot 
be used to describe group or elementary items for which usage is INDEX. 

Examples: 

1. 01 PRINT-UNE. 

02 FILLER PIC X(8) USAGE DISPLAY VALUE 'EMPLOYEE'. 
02 NAME PIC X(16) USAGE DISPLAY VALUE SPACES. 

The described item would appear in memory as follows: 


E 

M 

P 

L 

O 

Y 

E 

E 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 


2. 77 SUB-TOTAL PIC 9999V99 USAGE COMP VALUE ZEROS. 

This item appears in memory as follows: 


0 

0 

0 

0 

0 

0 


assumed decimal point 


3. 01 OUTPUT-RECORD. 

02 RECORD-SIZE USAGE COMP-1 VALUE 120. 

02 FILLER PICTURE X(13) USAGE DISPLAY VALUE 
'MASTER-FILE-A'. 

02 FILE-DATE PICTURE X(8) VALUE SPACES. 
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This group appears in memory as follows: 


00 

00 

01 

70 

M 

A 

S 

T 

E 

B 

- 

F 

I 

L 

E 

- 

A 

A 

A 

A 

A 

A 

A 

A 

A 


w 



binary value 


4, 


77 TODAYS-DATE PIC X(8) USAGE DISPLAY VALUE ’01/26/68'. 

77 SALABY-MAXIMUM PIC 9(4) V99 USAGE COMPUTATIONAL 
VALUE IS 5000.00. 

77 SALABY-TOTAL PIC 9(4) V99 USAGE IS COMP VALUE ZEBOS. 

77 HOUBS-WOBKED USAGE COMP-1 VALUE ZEBOS. 

77 MAX-HOUBS-WOBKED USAGE COMP-1 VALUE 60. 

77 COMP-VAL-1 USAGE COMPUTATIONAL-2 VALUE IS 3.46875E0. 
77 COMP-VAL-2 USAGE COMP-2 VALUE 12.279296E0. 


The above items appear in memory as follows: 



TODAYS-DATE 
(8 BCD characters) 


SALABY-TOTAL 
(6 BCD digits) 


MAX-HOUBS-WOBKED 
(fixed point binary) 


COMP-VAL-2 
(floating point) 
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3.5.16 

VALUE 


The VALUE clause defines the initial value of working storage items or the 
values associated with a condition name. 

Format 1 r 

VALUE IS literal 


Format 2: 


\ VALUE IS J 
) VALUES ARE f 


literal-1 [THRU literal-2] [, literal-3 
[THRU literal-411... 


The VALUE clause cannot be stated for any item for which size is variable, 
explicitly or implicitly. 

A fi^rative constant may be used wherever literal appears in the format. 

If VALUE is specified for a group, the literal must be a figurative constant 
or a non-numeric literal, and the group area is initialized without regard for 
the individual elementary or group items. VALUE must not be specified 
for subordinate items within the group. 

Format 2 is used only with condition names. In the THRU option, literal-1 
must be less than literal-2, and literal-3 less than literal-4, etc. The 
VALUE clause is required in a condition name entry, and it is the only clause 
permitted in the entry. Characteristics of the condition name are implicitly 
those of its associated data item (its conditional variable). 

The values specified in a VALUE clause must be consistent with any other 
clauses in the data description of the item. The following rules apply: 

If the category of the item is numeric, all literals in the VALUE clause must 
be numeric literals. The literal is aligned according to the alignment rules 
given for the JUSTIFIED clause. The literal must not have a value requiring 
truncation of nonzero digits. Literals assigned to COMPUTATIONAL-2 items 
must be in the floating point literal format. 

If the category of the item is alphabetic or alphanumeric, all literals in the 
VALUE clause must be non-numeric. The literal is aligned according to 
the rules; the number of characters in the literal must not exceed the size 
of the item. 

All numeric literals in a VALUE clause must have a value within the range 
indicated by the PICTURE. For example, if the PICTURE is PPP99 the 
literal must be within the range . 00000 through . 00099. 
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The function of the editing clause or editing characters in a PICTURE is 
ignored in determining the initial appearance of the item. However, editing 
characters are included in determining the size of the item. 

Rules gover ning the use of the VALUE clause differ in different sections of 
the Data Division: 

Section Rule 

File Section The VALUE clause may be used in 

condition name entries. It is docu¬ 
mentary only in other entries. 

Working-Storage/ The VALUE clause may be used in 

Common-Storage Sections condition name entries and also to 

specify the initial value of any data 
item. The item assumes the specified 
value at the start of the object program. 
If VALUE is not specified, the initial 
value of an item is unpredictable. 

Report Section The VALUE clause causes the report 

data item to assume the specified 
value each time its report group is 
presented. This clause may be used 
only at the elementary level. 

The VALUE clause must not be stated in a record description entry which 
contains an OCCURS clause or in an entry subordinate to an entry containing 
OCCURS. Nor can the VALUE clause be stated in an entry which contains 
a REDEFINES clause, or in an entry subordinate to an entry containing 
REDEFINES. These rules do not apply to condition name entries. 

The VALUE clause must not be written for a group item containing descriptions 
that include SYNCHRONIZED or USAGE clauses. 

Examples: 

1. The value of an independent constant item is defined: 

77 FICA-MAX PICTURE 999V9 VALUE IS 150.0. 

The constant item will appear as follows: 


assumed decimal point location 
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2. Value is specified for the range of a condition name 
associated with an item: 

01 YEABS PICTURE IS 9(4). 

88 SIX-YEARS VALUES ARE 1951 THRU 1956. 

3. Value is specified for the initial value of an item: 

01 HEADING-A. 

03 FIRST-WORD PICTURE X(10) VALUE IS "COBOL-LIST”. 
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PROCEDURE DIVISION 


4 


4.1 

SPECiFiCATiON 
OF PROCEDURE 
DIVISION 


Statements in the Procedure Division describe the operations to be performed 
by the object program. Execution of the object program begins with the first 
statement of the Procedure Division, excluding declaratives, and statements 
are executed in order of appearance until they are exhausted. The order of 
execution can be altered according to rules specified below. 

Declaratives define procedures to be executed in addition to the standard error 
and label record handling procedures of the input-output control system. 
Procedures specified in a declarative are executed automatically under the 
input-output control sj'^stem according to conditions specified in a USE state¬ 
ment. USE is the only declarative statement. 


PROCEDURE DIVISION. 

DECLARATIVES. 

section-name-1 SECTION. 
introductory- sentence -1. 
paragraph-name -1. 

END DECLARATIVES. 
[section-name-2 SECTION. 
paragraph-name - 2. 


paragraph-name -3. 
[section-name-n SECTION.] 
paragraph-nam e-n. 
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4 . 1.1 

DECLARATIVES 


The division begins with the header and a period on the first line. When 
declaratives are included, the entire declarative portion of the specification 
is written immediately following the division header. If declaratives are not 
included, the next line contains the first section name followed by a space 
and the word SECTION. If sections are not specified, the next line is the first 
paragraph name followed by a period. Sections are optional, but if any para¬ 
graph in the division is in a section, then all paragraphs must be in sections. 

Statements in the Procedure Division are combined to form sentences and 
paragraphs; paragraphs maybe combined to form sections. Sentences are 
terminated by a period and a space; paragraphs by the next paragraph name, 
section name, or the end of the division. Sections are terminated by the next 
section name, the end of the division, or if they are declarative sections, by 
the terminator END DECLARATIVES. Paragraphs and sections are both 
called procedures; paragraph names and section names are referred to as 
procedure names. The elements of statements are COBOL words, identifiers, 
and literals. A summary description of these elements and of procedure names 
is contained in appendix B. 

When the entire contents of a paragraph or section are contained in the COBOL 
library, the procedure name may be followed by the COPY statement. Section 6 
contains a description of the COBOL library and the COPY statement. 


Declarative sections are grouped at the beginning of the Procedure Division 
under the collective header DECLARATIVES. They are followed by the 
collective termination header END DECLARATIVES. Each declarative is 
specified in a section by itself, preceded by a section header. The introductory 
sentence containing a USE statement follows the header. Associated proce¬ 
dures are specified according to the same rules as all other procedures in 
the program. The introductory USE sentence defines the conditions under 
which these procedures are to be executed by the input-output control system. 
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4 . 1.2 

STATEMENTS 
AND SENTENCES 


The three types of statements correspond to the three sentence types: 
imperative, conditional, and compiler directing. A semicolon, may be 
used as a separator between statements or within the IF statement to make 
a sentence more readable. A separator may not immediately follow another 
separator. 


An imperative statement indicates a specific action to be taken by the object 
program. An imperative sentence is an imperative statement terminated by 
a period followed by a space. An imperative statement may consist of a 
sequence of imperative statements each separated optionally from the next 
by a separator. Imperative verbs are the following: 


ACCEPT 

ADDt 

ALTER 

CLOSE 

COMPUTEt 

DISPLAY 


DIVIDEt 

EXAMINE 

EXIT 

GENERATE 

GO 

INITIATE 


MOVE 

multiply! 

OPEN 

PERFORM 

RELEASE 

SEEK 


SET 

SORT 

STOP 

subtract! 

TERMINATE 

write!! 


hi a statement format, the term, imperative-statement, refers to a sequence 
of consecutive imperative statements ended by a period or an ELSE associated 
with a previous IF verb or a WHEN associated with a previous SEARCH verb. 


A conditional statement specifies a condition to be evaluated for truth, and 
subsequent action of the object program is dependent on this truth value. 

A conditional sentence is a conditional statement or sequence of conditional 
statements optionally preceded by an imperative statement, terminated by a 
period followed by a space. Conditional statements are the following: 


IF RETURN 

READ WRITE with INVALID KEY 

SEARCH Arithmetic statements with ON SIZE ERROR 


A compiler directing statement consists of a compiler directing verb and its 
operands. A compiler directing sentence is a single compiler directing 
statement terminated by a period followed by a space. Compiler directing 
verbs are the following: 

COPY 

ENTER 

NOTE 


! Without the SIZE ERROR option 
!! Without the INVALID KEY option 
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4.2 

ARITHMETIC 
EXPRESSIONS AND 
STATEMENTS 


4 . 2.1 

EXPRESSIONS 



4-4 


60229400 



A one-to-one correspondence is necessary between left and right parentheses 
such that each left parenthesis is to the left of its corresponding right 
parenthesis. 

Arithmetic expressions may be evaluated according to paired parentheses. 
Expressions within parentheses are evaluated first, and, within a test of 
parentheses, evaluation proceeds from the least inclusive to the most inclusive 
set. When parentheses are not used, or parenthesized expressions are at the 
same level of inclusiveness, the following hierarchical order of operations is 
implied: 

Unary - 

* and / 

+ and - 


When the order of a sequence of consecutive operations is not on the same 
hierarchical level completely specified by parentheses, the order of evalua¬ 
tion is from left to right. 


4 . 2.2 

STATEMENTS Arithmetic statements are ADD, COMPUTE, DIVIDE, MULTIPLY, and 

SUBTRACT. They have several common features: data descriptions of 
the operands need not be the same; any necessary conversion and decimal 
point alignment is supplied throughout the calculation. 

The maximum size of each operand is 18 decimal digits. 

Operands may be COMPUTATIONAL, COMPUTATIONAL-1, or 
COMPUTATIONAL-2 items. 

When the operands in arithmetic statements are not all the same mode, the 
compiler must generate conversions, hi the following conversions: 

COMPUTATIONAL-2 to COMPUTATIONAL-1 
COMPUTATIONAL-2 to COMPUTATIONAL 
COMPUTATIONAL-1 to COMPUTATIONAL 

the converted value may not fit in the resultant field. The most significant 
digits could be lost making the result completely unreliable. To avoid this 
situation, the user should specify the ON SIZE ERROR, option (see OPTIONS, 
4.4.2). He may also use MOVE statements prior to the arithmetic statements 
to make the operands all the same mode. 
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4.3 

CONDITIONS 


A condition causes the object program to select between alternate paths of 
control depending on the truth value of a test. Conditions are used in IF, 
PERFORM, and SEARCH statements. 

A condition is one of the following: 

Relation condition 
Class condition 
Condition-name condition 
Sign condition 
NOT condition 

Condition I I 
(Condition) 

The construction: NOT condition, where condition is one of the first four 
tyx)es listed above, is not permitted if the condition itself contains NOT. 

Conditions may be combined into logical operators. The logical operators 
must be preceded by a sf^ce and followed by a space. 


Logical 


Operator 

Meaning; 

OR 

Logical Inclusive Or 

AND 

Logical Conjunction 

NOT 

Logical Negation 


The figure below shows the relationships between the logical operators and 
conditions, A and B. 


Condition 

Condition and Value 

A 

B 

A AND B 

A OR B 

NOT A 

true 

true 

true 

true 

false 

false 

true 

false 

true 

true 

true 

false 

false 

true 

false 

false 

false 

false 

false 

true 
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4 . 3.1 

RELATION 

CONDITION 


A relation condition results in a comparison of two operands; the operands 
may be identifiers, literals, or arithmetie expressions. Comparison of two 
numeric operands is permitted regardless of the format specified by USAGE. 
For all other comparisons the operands must have the same usage specification. 

General format for relation condition: 

identifier-1 \ 

literal-1 > relational 

k -operator 

arithmetic-expression-1 / 


/ identifier-2 
< literal-2 

V arithmetic-expression-2 


The first operand (to the left of the operator) is called the subject of the 
condition; the second operand (to the right of the operator) is called the 
object of the condition. The subject and object may not both be literals. 

The relational operators specify the comparison to be made in a relation 
condition. They must be preceded by a space and followed by a space. 


Relational Operator 


ISr not ] GREATER THAN 
IS[NgT]> 

IS P not I less than 
is[not]< 

IS [ not 1 EQUAL TO 
is[not]= 


Meaning 


Greater than, or not greater than 


Less than or not less than 


Equal to or not equal to 


In any relation condition other than the first in a sentence, the subject, the 
subject and relational operator, or the subject and object may be omitted. 
The effect is the same as if the omitted parts were taken from the nearest 
preceding complete relation condition within the same sentence. 

If in a consecutive sequence of relation conditions, separated by logical 
operators, the subjects are identical, the relational operators are identical, 
and the logical connectors are identical, the sequence may be abbreviated 
as follows: 
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Only the first occurrence of the subject and relational operator is written. 

The logical operator is written only once immediately preceding the last 
object. 

IF X IS EQUAL TO 2 OR X EQUAL TO Y OR X EQUAL TO Z MOVE M TO N 
can be abbreviated to 

IF X IS EQUAL TO 2, Y, OR Z MOVE M TO N 

Abbreviation 1: Identical subjects are omitted in a consecutive sequence of 
relation conditions. 

IF A EQUAL TO B OR A IS LESS THAN C 
can be abbreviated to 

IF A EQUAL TO B OR IS LESS THAN C 

and 

IF A EQUAL TO B MOVE M TO N ELSE IF A IS LESS THAN C ADD 
X TO Y 

can be abbreviated to 

IF A EQUAL TO B MOVE M TO N ELSE IF LESS THAN C ADD X TO Y 

Abbreviation 2: Identical subjects and relational operators are omitted in a 
consecutive sequence of relation conditions. 

IFA = BORA = C 

can be abbreviated to 

IF A - B OR C 

and 

IF A = B ADD X TO Y ELSE IF A = C AND A = D MOVE M TO N 
can be abbreviated to 

IF A = B ADD X TO Y ELSE IF C AND D MOVE M TO N 
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4 . 3.2 

COMPARISON OF 
NUMERIC OPERANDS 


4 . 3.3 

COMPARISONS OF 

NONNUMERIC 

OPERANDS 


Abbreviation 3: Identical subjects and objects are omitted in a consecutive 
sequence of relation conditions. 

IF A EQUAL TO B OR A IS GREATER THAN B MOVE C TO A IF A IS 
GREATER THAN B ADD B TO A 


can be abbreviated to 

IF A EQUAL TO B OR IS GREATER MOVE C TO A IF GREATER 
ADD B TO A 


A comparison of numeric operands results in the determination that the 
algebraic value of one is less than, equal to, or greater than the other. The 
length of the operands, in terms of number of digits, is not significant. 

Zero is considered a unique value regardless of the sign. Comparison of 
these operands is permitted regardless of their usage. 


A comparison between nonnumeric operands, or one numeric and one non¬ 
numeric operand, results in the determination that one is less than, equal 
to, or greater than the other with respect to a specified collating sequence of 
characters. 

The size of an operand is the total number of characters in the operand. 
Numeric and nonnumeric operands may be compared only when their usage 
is the same, implicitly or explicitly. 


Operands of Equal Size 

Characters in corresponding positions of the two operands are compared 
from the high-order end through the low-order end. If all pairs of 
characters compare equally, the operands are considered equal. 

The first pair of unequal characters to be encountered is compared to 
determine their relative position in the collating sequence. The operand 
that contains the higher character in the collating sequence is considered 
to be the greater. 
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Operands of Unequal Size 


The comparison of characters proceeds from high-order characters to 
low-order characters until a pair of unequal characters is encountered or 
until the characters in one of the operands are exhausted. If remaining 
characters in the longer operand consist entirely of spaces, the two 
operands are considered equal, otherwise the longer operand is con¬ 
sidered greater. 

4 . 3.4 

COMPARISONS 

INVOLVING 

INDEX NAMES AND/OR 

INDEX DATA ITEMS Comparison of two index names is the same as if the corresponding occurrence 
numbers are compared. Conversion from character address bias is performed 
automatically. 

In the comparison of an index name with a literal or data item (other than an 
index data item), the occurrence number is compared to the actual value of 
the data item or literal. Conversion of the character address bias in the 
index name occurs prior to the comparison. 

In the comparison of an index data item with an index name or another index 
data item, the actual values are compared without conversion. 

The result of any other comparison involving an index data item is unpredictable. 


4 . 3.5 

SIGN CONDITION This condition determines whether or not the algebraic value of a numeric 
operand is less than, greater than, or equal to zero. 

identifier ) f POSITIVE 

> IS ( NOT ) / NEGATIVE 
arithmetic-expression ' f ZERO 

An operand is positive if its value is greater than zero, negative if its value 
is less than zero, and zero if its value is equal to zero. 
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4 . 3.6 

CLASS CONDITION 


This condition determines whether the operand is numeric, that is, consists 
entirely of the characters 0, 1, 2, 3, ..., 9, with or without an operational 
sign, or whether it is alphabetic, that is, consists entirely of the characters 
A, B, C, =.., Z, space. 


identifier IS [ NOT ] 


NUMERIC 

ALPHABETIC 


The operand being tested must be described, implicitly or explicitly, as 
USAGE DISPLAY. 


The NUMERIC test cannot be used with an item described as alphabetic. 

The record description of the item being tested is determined to be numeric 
only if the contents are numeric. 


The ALPHABETIC test cannot be used with an item described as numeric. 
The item, being tested is determined to be alphabetic only if the contents 
consists of any combination of alphabetic characters and the space. 

If the low-order character position of an otherwise numeric field contains a 
digit with a sign overpunch, the field is determined to be totally numeric. 

For a one-character alphanumeric field, that contains a numeric digit with 
a sign overpimch, both the NUMERIC and ALPHABETIC tests are considered 
true, and the results of the NOT option of the tests are false. An example 
of the latter case follows: 


02 FLD-A PIC X, VALUE ’A' 

IF FLD-A NUMERIC GO TO FLD-NUM 
IF FLD-A ALPHABETIC GO TO FLD-ALPHA 
IF FLD-A NOT NUMERIC GO TO FLD-ALPHA 
IF FLD-A NOT ALPHABETIC GO TO FLD-NUM 


The first two tests will take the true path; the last two tests will take the 
false path. Since 'A' in internal octal form is 21, it can be interpreted as 
either an alpha A or a numeric +1. 
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4 . 3.7 

CONDITION-NAME 

CONDITION 


4 . 3.8 

EVALUATION RULES 


A conditional variable is tested to determine whether or not its value is 
equal to one of the values associated with a condition name. 

[NOT] condition-name 

If the condition name is associated with a range or ranges of values, the 
conditional variable is tested to determine whether or not its value falls in 
this range, including the end values. 

The rules for comparing a conditional variable with a condition name are the 
same as those specified for relation conditions. 

The result of the test is true if one of the values corresponding to the condition 
name equals the value of its associated conditional variable. 


Evaluation rules for conditions are analogous to those given for arithmetic 
expressions except that the following hierarchy applies: 

arithmetic expression 

all relational operators 

NOT 

AND 

OR 
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4.4 

COMMON OPTIONS 
IN STATEMENTS 


4 . 4.1 

ROUNDED OPTION 


4 . 4.2 

SIZE ERROR OPTION 


Three options appear frequently in the statement descriptions that follow: 
ROUNDED, SIZE ERROR, and CORRESPONDING 


Truncation occurs after decimal point alignment if the number of fractional 
places in the result of an arithmetic operation is greater than the number of 
fractional places provided for the result in the receiving item. Excess digits 
are truncated according to the format of the item containing the result, 

(result identifier). When rounding is requested, the absolute value of the 
result is increased by 1 when the most significant digit of the excess is 
greater than or equal to 5. 

When the low-order integer positions in a result identifier are represented 
in a PICTURE by the character P, rounding or truncation occurs relative to 
the rightmost integer position for which storage is allocated. 


A size error condition exists if the value of a result exceeds the largest value 
that can be contained in the associated result identifier after decimal point 
alignment. The size error condition applies only to final results, except in 
MULTIPLY and DIVIDE statements where size error applies to the inter¬ 
mediate results as well. Division by zero always causes a size error 
condition. If ROUNDED is specified, rounding takes place before checking 
for size error. When a size error condition occurs, subsequent action 
depends on whether or not the SIZE ERROR option is specified. 

If SIZE ERROR is not specified and a size error condition occurs, 
the value of the result identifier is unpredictable. 

If SIZE ERROR is specified and a size error condition occurs, the 
previous value of the result identifier is not altered. After the 
operation is completed, the imperative statement in the SIZE 
ERROR option is executed. 

For CORRESPONDING arithmetic operations, the imperative statement in 
the SIZE ERROR clause is not executed until all individual additions or 
subtractions are completed. 

Invalid non-numeric data contained within a numerically defined field does 
not constitute an ON SIZE error condition during arithmetic operations. 
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4 . 4.3 

CORRESPONDING 

OPTION 


For this discussion, and d 2 are each identifiers that refer to group items. 

A pair of data items, one from d^ and one from d^ correspond if the following 
conditions exist; 

A data item in d^ and a data item in d 2 have the same name and the 
same qualifications up to, but not including, d and d . 

• 1 - u 

At least one of the data items is an elementary data item in the 
case of a MOVE statement, and both of the data items are elementary 
numeric data items in the case of ADD or SUBTRACT. 

Neither d^ nor d^ are data items with level number 66, 77, or 88. 

When the CORRESPONDING option is specified, only the pairs of corresponding 
items as defined above are moved, added, or subtracted. When the groups 
identified by d^ or d 2 contain items described with RENAMES, REDEFINES, 
or OCCURS clauses, those items are ignored; however, the groups themselves 
may be described with REDEFINES or OCCURS or be subordinate to items 
with these clauses. 
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4.5 

TABLE HANDLING 


4 . 5.1 

SUBSCRIPTS 


4 . 5.2 

INDEXING 


The table handling functions provide a method for accessing tables of repet¬ 
itive contiguous data items. Tables described with the OCCURS clause in the 
Data Division are scanned with the SEARCH statement in the Procedure 
Division. Items in tables also may be referenced by subscripting (up to 
three levels) or by indexing. 


Subscripts are used only when reference is made to an individual element in 
a list or table of like elements that have not been assigned individual data 
names. The subscript is a numeric literal integer, the special register 
TALLY, or a data name. The data name must identify a numeric elementary 
item that represents an integer. The data name used as a subscript maj^ be 
qualified but not subscripted. 

The subscript may contain a sign, but the lowest permissible subscript value 
is 1. The highest permissible subscript value, in any particular case, is 
the maximum occurrences of the item as specified in the OCCURS clause. 


The subscript, or set of subscripts, that identifies the table element is en¬ 
closed in parentheses immediately following the terminal space of the table 
element data name. The table element data name appended with a subscript 
is called a subscripted data name or an identifier. When more than one sub¬ 
script appears within a pair of parentheses, the subscripts must be separated 
by commas. A space must follow each comma, but no space may appear 
between the left parenthesis and the leftmost subscript or between the right 
parenthesis and the rightmost subscript. 


data-name 



data-name-1 


(subscript [, subscript] . ..) 


Indexing is used to reference individual elements within a table of like elements. 
An index name is assigned to the level of the table in which it appears with 
the INDEXED BY option of the OCCURS clause when the table is described in 
the Data Division. The index name is initialized by a SET statement before 
it is used as a table reference. 

Direct indexing is specified by using an index name as a subscript. Relative 
indexing is specified when the index name is followed by the operator + or - 
followed by an unsigned integral numeric literal all enclosed in the parentheses 
immediately following the terminal space of the data name. 
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Composite format: 


4 . 5.3 

SEARCH FUNCTION 


4 . 5.4 

RESTRICTIONS ON 
INDEXING, 
SUBSCRIPTING 
AND QUALIFICATION 


data-name 



data-name-1 


(index-name 


, index-name 


integer .. .) 



integer 


The search function operates in the linear mode (SEARCH) or the binary 
bisecting mode (SEARCH ALL). Both types of search terminate when a 
stated condition is met when table element equals search argument. All 
tables to be searched must have at least one element described as an index 
name with the INDEXED BY option of the OCCURS clause. The index name 
is incremented during search operations by the element character offset, 
and the index name always contains the character address bias of the table 
entry currently being compared. See paragraph 4. 3.4 for rules governing 
the comparison of index names and index data items. 

The element character offset is the number of character positions in a table 
element. The character address bias is the value added to the base character 
address of the table to give the character address of a particular element 
in the table. 


Tables may have one, two, or three dimensions; therefore, references to an 
element in a table may require up to three subscripts or indexes. 

A data name may not be subscripted nor indexed when the data name is used 
as an index, subscript, or qualifier. 

When a data item requires qualification, subscripting or indexing, the indexes 
or subscripts are stated following all necessary qualification. 

Subscripting and indexing must not be used together in a single reference. 

Where subscripting is not permitted, indexing is also not permitted. 

An index can be modified only by the SET, SEARCH, and PERFORM statements. 

Index data items are described by USAGE IS INDEX. They permit storage of 
the values of index names as data with conversion. 

The commas shown in the formats for indexes and subscripts are required. 
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4.6 

DEBUGGING 


4.7 

PROCEDURE 

DIVISION 

STATEMENTS 


4 . 7.1 

ACCEPT 


AID The TRACE statement is a source language debugging aid. It is used to 

display the contents of data items and literals during job execution. The user 
can include any number of TRACE statements and he can specify the frequency 
and point of execution. 


The following pages contain the Procedure Division statements in alphabetical 
order. 


The ACCEPT statement causes low volume data to be read from the system 
input file (INP) or the console. 

ACCEPT identifier [FROM mnemonic-name] 

The file or device must be associated with the mnemonic name in the 
SPECIAL-NAMES paragraph of the Environment Division. 

ACCEPT causes the next set of data available at the file or device to replace 
the contents of the data item named by the identifier. 

If the size of the data item is less than the fixed input unit (80 characters for 
system input, 127 characters for the console), the data appears as the first 
set of characters within the minimum unit. When data is input from INP, if 
the size of the data item is greater than 80 characters, multiples of 80 char¬ 
acters are read until the storage area allocated to the data item is filled. 

If the data item is greater than the fixed unit but is not an exact multiple, 
the remainder of the last fixed unit is not accessible. 

If the FROM option is not given, data is accepted from the console. 
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4 . 7.2 

ADD 


The ADD statement causes two or more numeric operands to be summed and 
the result to be stored. 

Format 1: 


ADD 

- |literal-l | 


! identifier-2 / 
literal-2 ( 


identifier-n [ ROUNDED 1 


[; ON SIZE ERROR imperative-statement] 


Values of operands are added together and the sum is stored in the location 
of the last operand specified. This operand may not be a literal. 

Format 2: 


ADD 


! identifier-1 f 
literal-1 ] 


(identifier-2^ 
’ I literal-2 j 


TO identifier-m [ROUNDED] 


[, identifier-n [ ROUNDED ]] . .. 

[; ON SIZE ERROR imperative-statement] 


Values of operands preceding the word TO are added together, then the sum 
is added to the current value in each identifier-m, identifier-n, ... , and the 
result is stored in each identifier-m, identifier-n, ..., respectively. 

Format 3: 


ADD|w™tifier-l| I identifier-2/ 
-/ literal-1 [ | literal-2 | 


! identifier-3 i 
literal-3 | 


GIVING 


identifier-m [ ROUNDED ] [identifier-n [ ROUNDED] ] . .. 
[; ON SIZE ERROR imperative-statement] 


Values of operands preceding the word GIVING are added together, then the 
sum is stored as the new value of identifier-m, identifier-n, ... 

Format 4: 


. (corresponding/ .j , rri/^ -J o r ■D/^TTXTTM7 >Tvt 

ADD i -- _ _ } identifier-1 TO identifier-2 [ ROUNDED 1 

/ CORR 1 

[; ON SIZE ERROR imperative-statement] 

Data items in identifier-1 are added to and stored in corresponding data items 
in identifier-2. 

In Formats 1,2, and 3 each identifier refers to an elementary numeric item; 
identifiers to the r:^ht of GIVING may refer to data items containing editing 
symbols. Each literal must be a numeric literal. 
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The composite of operands must not contain more than 18 digits. The com¬ 
posite is the data item resulting from superimposing all operands, aligned 
by decimal points. The data items that follow GIVING are not included in the 
composite. The compiler insures that enough places are carried to avoid 
loss of significant digits during execution. 


K one or more of the additions results in a size error, the procedure RATE- 
OVERFLOW-PROG is performed after completion of the whole ADD statement. 
Each receiving item that has a size error retains its current value instead of 
the computed result. Control returns to the statement following ADD statement. 

Examples: 

ADD MONTHLY-EARNINGS OVERTIME-EARNINGS GROSS-YEAR- 
TO-DATE 

ADD MONTHLY-EARNINGS OVERTIME-EARNINGS GIVING MONTHLY- 
GROSS-PAY WORK-MONTHLY-GROSS-PAY 

ADD HOS-INSURANCE LIFE-INSURANCE STATE-UNEMPLOYMENT 
UNITED MISCELLANEOUS GIVING TOTAL-DEDUCTIONS 

ADD CORRESPONDING UPDATE-RATE-TABLE TO RATE-TABLE ON 
SIZE ERROR PERFORM RATE-OVERFLOW-PROG 


UPDATE-RATE-TABLE and RATE-TABLE are described as follows: 


01 UPDATE-RATE-TABLE 
03 EASTERN-REG 
05 NEW-YORK 
07 RATE 
05 BOSTON 
07 RATE 
03 WESTERN-REG 
05 LOS-ANGELES 
07 RATE 


01 RATE-TABLE 

03 EASTERN-REG 
05 NEW-YORK 
07 RATE 
05 BOSTON 
07 RATE 

05 PHILADELPHIA 
07 RATE 

03 WESTERN-REG 
05 LOS-ANGELES 
07 RATE 

05 SAN-FRANCISCO 
07 RATE 


03 MIDWEST-REG 


The rates for New York, Boston, and Los Angeles in the UPDATE-RATE- 
TABLE are added to the rates for these three cities in the RATE-TABLE, 
and the results are the new rates. No other alteration occurs in the 
RATE-TABLE. 
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4 . 7.3 

ALTER 


The ALTER statement modifies a predetermined sequence of operations. 


ALTER procedure-name-1 TO [ PROCEED TO ] procedure-name-2 
[, procedure-name-3 TO [ PROCEED TO] procedure-name-41 .. . 

Each procedure-name-1, procedure-name-3, ... is the name of a paragraph 
that contains only one sentence consisting of a GO TO statement without the 
DEPENDING option. 

Each procedure-name-2, procedure-name-4, ... is the name of a paragraph 
or section in the Procedure Division. 

During execution of the object program, the ALTER statement modifies the 
GO TO statement in the paragraph named procedure-name-1, procedure- 
name-3, ... replacing the object of the GO TO by procedure-name-2, 
procedure-name-4, ..., respectively. 

Example: 

ALTER CGI TO PROCEED TO CCS; CCS TO PROCEED TO 
FINAL-RESULT. 

CCO. ADD 001 TO COUNTR, 

IF COUNTR IS LESS THAN OVFLW GO TO CC2. 

CCl. GOTO. 

CC2. MOVE CORRESPONDING INPUT-TABLE TO WORK-A RE A. 

ADD INPl OF WORK-AREA TO I-TOTAL. 

ADD INP2 OF WORK-AREA TO P-TOTAL. 

GO TO CCO. 

CCS. GO TO CCIO. 


When the ALTER statement is executed, the paragraph name CCS is inserted 
as the object of the GO TO in paragraph CCl; and the paragraph name 
FINAL-RESULT is inserted in place of CCIO as the object of the GO TO in 
paragraph CCS. FINAL-RESULT and CCIO must be procedure names in the 
COBOL program. 
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4.7.4 

CLOSE 


The CLOSE statement terminates the processing of input and output reels, 
units, and files with optional rewind and/or lock where applicable. 


CLOSE file-name-1 


\ REEL I 
i UNIT \ 


WITH 


\ NO REWIND 
I LOCK 


, file-name-2 


^ reel / 

] UNIT j 


WITH 


NO REWIND 
LOCK 


Each file name is the name of a file upon which the CLOSE statement operates; 
it must not be the name of a sort file. 


The REEL, LOCK, and NO REWIND options are applicable only to tape files. 
The UNIT option is applicable only to mass storage files in the sequential 
access mode. UNIT, throughout this specification means the storage device 
rather than the driver or power unit. Its use in the CLOSE statement is 
documentary and has the same effect as CLOSE file-name. It is illegal to 
specify CLOSE UNIT with the LOCK or NO REWIND options. 

To explain CLOSE options for the various storage devices, all files are 
classified as follows: 


Non-reel 


Single-reel 


Multi-reel 


A file on an input or output device for which concepts of 
rewinding and reels have no meaning (disk file, disk pack, 
drum, reader, printer, punch, TTY, CRT) 

A file entirely contained on one reel of tape; the reel 
may contain more than one file 

A file contained on more than one reel of tape 


A CLOSE statement with no options performs the following standard close 
operations on non-reel, single-reel, or multi-reel files: 


Input files: If the file is positioned at its end and there is an ending label 

record, the ending label record is checked and the data area 
is released. If the file is positioned at its end and there is no 
ending label record, or if the file is not positioned at its end, 
the data area is released but no ending label checking takes 
place. An input file is positioned at its end when the AT END 
imperative statement has been executed but no CLOSE statement 
has yet been executed. 


Output files: If an ending label record has been described for the file, it is 
constructed and written on the outpit device and the data area 
is released. 


Input- Regardless of the position of the file, the data area is released, 

output files: 
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Single or multi-reel files are rewound; the file is positioned at its beginning 
on the last (or only) used reel. The previous reels are not affected. 

If a mass storage file is described with a FILE LIMITS clause, the input- 
output control system automatically releases the unused portion of the area 
allocated to the file when the file is closed. For a mass storage file CLOSE 
UNIT has the same effect as CLOSE FILE. 

CLOSE WITH LOCK applies only to tape files. It performs the standard close 
operations for single-reel and multi-reel files, rewinds the file, and unloads 
it. The file is no longer available for processing. 

CLOSE WITH NO REWIND applies only to tape files. The file is closed with 
the standard close procedures but the current reel remains in its current 
position. 

When multi-reel files are closed, previous reels are not affected unless 
controlled by a prior CLOSE REEL. If the current reel is not the last in an 
input file, succeeding reels are not processed in any way. CLOSE REEL 
applies only to multi-reel tape files. The following operations are performed 
in a standard close reel: 

Input files: Reel swap and standard beginning reel label and user’s be¬ 

ginning reel label procedures (if specified by USE). Order of 
execution is specified in USE statement. 

Makes available the next data record on the new reel. 

Output files: Standard ending reel label and user's ending reel procedure 
(if specified by USE). Order of execution is specified in 
USE statement. 

Reel swap and standard beginning reel label procedure and 
user’s beginning reel label procedure if specified by USE. 

The file is rewound, positioned at its beginning on the last used reel. 

CLOSE REEL WITH LOCK causes the standard close reel operations to be 
performed on the current reel of a multi-reel tape file. In addition, the 
reel is rewound and unloaded. The reel cannot be processed again as a 
part of the file. 

CLOSE REEL WITH NO REWIND causes the standard close reel operations 
to be performed on the current reel of a multi-reel tape file but the reel is 
left in its current position. 
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4 . 7.5 

COMPUTE The COMPUTE statement assigns to data items the value of a numeric data 

item, literal, or arithmetic expression. 

COMPUTE identifier-1 [ ROUNDED ] , [identifier-2 ROUNDED]] .. . 

I identifier-n 
< literal-1 

I arithmetic-expression 

[; ON SIZE ERROR imperative-statement] 

The COMPUTE statement allows the user to combine arithmetic operations 
without the restrictions on the composite of operands and/or receiving data 
items imposed by the arithmetic statements ADD, SUBTRACT, MULTIPLY, 
and DIVIDE. 

Each identifier must refer to an elementary numeric item, except that 
identifiers to the left of the equals sign may describe data items containing 
editing symbols. Literal-1 must be a numeric literal. The arithmetic ex¬ 
pression option permits the use of any meaningful combination of identifiers, 
numeric literals, and arithmetic operators, parenthesized as required. 

The words FROM and EQUALS are equivalent to the equals sign (=). 

The maximum size of each operand is 18 decimal digits. 

The identifier-n and literal-1 options provide a method for setting the values 
of identifier-1, equal to the value of identifier-n or literal-1. 

Examples: 

COMPUTE COST-PRICE = (HOURS * RATE + PARTS-COST) * 

(1 + PROFIT-FACTOR). 

COMPUTE DATA-1 = 100. 


r FROM 
) EQUALS 
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4 . 7.6 

DISPLAY 


The DISPLAY statement causes low volume data to be written on the system 
output file (OUT), the system punch file (PUN), or the console. 


DISPLAY 


i literal-1 | 

, literal-2 

] identifier-1^ 

, identifier-2 


[ UPON mnemonic-name] 


The mnemonic name is associated with a system file or the console in the 
SPECIAL-NAMES paragraph in the Environment Division. Each literal may 
be any figurative constant except ALL. 

DISPLAY causes the contents of each operand to be written on the system file 
or the console in the order listed. If a figurative constant is specified as 
one of the operands, only a single occurrence of the figurative constant is 
displayed. 

When a DISPLAY statement contains more than one operand, the data com¬ 
prising the first operand is stored as the first set of characters, the data 
comprising the second operand as the second set of characters, and so on, 
until the maximum output file and 127 characters for the console) is filled. 
This operation continues until all information is displayed. Data comprising 
an operand may extend into subsequent units. 

K the UPON option is not used, the data is displayed on the console. 

COMP-2 items are converted to a standard 18-character format: 

+ . 9(ll)E-t-999 before being displayed. 

COMP-1 items are converted to a standard 8-character format: 

+9(7) before being displayed. 

All other items are displayed without conversion. 
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4 . 7.7 

DIVIDE 


The DIVIDE statement divides one numeric data item into another and sets 
the value of a data item equal to the results. 


Format 1: 


DIVIDE into identifier-m \ ROUNDED! 

[, identifier-n ROUNDED] ].. . [; ON SIZE ERROR imperative- 

statement] 

The value of identifier-1 or literal-1 is divided into the initial values of 
identifier-m, identifier-n,... Dividend values are replaced by the 
quotient values. 

Format 2: 


JJiV IXJUi 


\ identifier-1 ( 
I literal-1 \ 


XJ.> j. vy 


^ identifier-2 [ 
I literal-2 ^ 


GP/ING identifier-m 


[ROUNDED] [, identifier-n [ROUNDED] ]. . . 

[; ON SIZE ERROR imperative-statement] 


The initial value of identifier-1 or literal-1 is divided into identifier-2 or 
literal-2 and the result is stored in identifier-m, identifier-n,.. . respectively. 


Format 3: 


identifier-2 I 

^ ]■ GIVING identifier-m 

literal-2 ^ - 

[ROUNDED] [, identifier-n [ ROUNDED] ]. .. 

[; ON SIZE ERROR imperative-statement] 

The value of identifier-1 or literal-1 is divided by the value of identifier-2 
or literal-2 and the result is stored in identifier-m, identifier-n,.. . 
respectively. 

Each identifier must refer to a numeric elementary item, except that any 
identifiers to the right of the word GIVING can refer to data items that con¬ 
tain editing symbols. Each literal must be a numeric literal. 


DIVIDE 


\ identifier-1 
) literal-1 


BY 
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The maximum size of each operand is 18 decimal digits. 

Examples: 

1. DIVIDE 1.8 INTO CONVERTED-TEMPl CONVERTED-TEMP2 
CONVERTED-TEMP3 CONVERTED-TEMP4. 

2. DIVIDE ABLE INTO BAKER GIVING CHARLEY 
ROUNDED ON SIZE ERROR GO TO RECOMPUTE. 

3. DIVIDE TOTAL BY DAILY GIVING RATE ROUNDED 
RATE-A ROUNDED ON SIZE ERROR 
PERFORM DWIDE-FAULT-ROUTINE. 


4 . 7.8 

ENTER The ENTER statement makes it possible to use more than one language in 

the same program. 

ENTER language-name; routine-name [; (parameter-string)] 

Language-name may be COBOL, FORTRAN, or COMPASS for USASI COBOL, 
USASI FORTRAN, COMPASS/MASTER. Statements in the other language are 
executed as if they had been compiled into the object program following the 
ENTER statement. 

Routine name identifies the portion of codii^ to be executed at this point in 
the procedure sequence. A routine name is a COBOL word which may be 
referred to only in an ENTER sentence. It is 1-8 characters and must con¬ 
form to requirements for an entry point name recognizable by the MASTER 
loader. It is automatically declared as an EXTERNAL symbol by the USASI 
COBOL compiler. 

Parameter strings may contain any or all of the following: procedure names, 
file names, identifiers, non-numeric literals, and signed numeric literals. 

Parameter names must be separated by commas. A numeric literal must be 
prefixed by plus or minus to distinguish it from an all numeric procedure name. 

Parameters occupy 24, 36, or 48 bits in storage. The compiler analyzes the 
parameter name list and codes and structures the parameters as shown below. 

A procedure name or a file name and floating point or binary integer param¬ 
eters require one word only; BCD parameters require two words. 
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Words 


23 19 i7 0 



(BCD alpha) 


Descriptive 


Code 

Type 

Address 

Chapter 

Word 

00 

Procedure name 

word 



40 

File name 

word 



52 

BCD Alpha 

character 

2 

follows 

56 

BCD Alpha 

character 

1 

follows 

60 

BCD Numeric 

character 

2 

follows 

61 

BCD Numeric 

character 

2 

precedes 

64 

BCD Numeric 

character 

1 

follows 

65 

BCD Numeric 

character 

1 

precedes 

70 

Binary Interger 

word 

2 


71 

Floating Point 

word 

2 


74 

Binary Integer 

word 

1 


75 

Floating Point 

word 

1 
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The descriptions of BCD numeric items are in the half-word preceding or 
following the parameter depending on the code. A one- or two-chapter method 
of addressing is indicated by the code (see MASTER Reference Manual for 
description of chapters). The word address of a file name is the beginning 
address of the File Environment Table entry associated with that file name. 

The size and address of a literal are passed as parameters in the same 
manner as the size and address of identifiers. When a subscripted identifier 
is listed in the ENTER parameter string, the compiler computes the actual 
subscripted address and passes it in the appropriate parameter word. 

Before control is passed to the routine named by ENTER, the mode of program 
execution is automatically relocated to instruction state and, upon return from 
the routine, is relocated to operand state. 

Refer to Appendix J for ENTER Verb examples. 
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4 . 7.9 

EXAMINE 


The EXAMINE statement replaces or counts the number of occurrences of a 
given character in a data item. 


EXAMINE 

identifier 


TALLYING 


REPLACING 


UNTIL FIRST 
ALL 

LEADING 


( all 

< LEADING 
/ [UNTIL ] FIRST 


iiteral-1 [ REPLACING 
BY literal-2] 


literal-3 BY literal-4 


The description of the identifier must be USAGE is DISPLAY (explicitly or 
implicitly). 


Each literal must consist of a single character belonging to a class consistent 
with that of identifier. A literal may be any figurative constant, except ALL. 


Examination proceeds as follows: 

• Non-numeric data items are examined from left to right. Each 
character in the data item specified by the identifier is examined in 
turn. 

• Numeric data item referred to by EXAMINE must consist of numeric 
characters. Examination starts at the leftmost character and pro¬ 
ceeds to the right. Each character except the sign is examined in 
turn. The sign is ignored by EXAMINE. 

The TALLYING option creates an integral count which replaces the value of a 
special register called TALLY (Special Register, appendix B). The count 
represents the number of: 

• Occurrences of literal-1 when the ALL option is used. 

• Occurrence of literal-1 prior to a character other than literal-1 when 
the LEADING option is used. 

• Characters not equal to literal-1 before the first occurrence of 
literal-1 when the UNTIL FIRST option is used. 
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4 . 7.10 

EXIT 


For the REPLACING options, the replacement rules are: 

• When the ALL option is used, literal-2 or literal-4 is substituted 
for each occurrence of literal-1 or literal-3. 

• When the LEADING option is used, the substitution of literal-2 or 
literal-4 terminates as soon as a character other than literal-1 or 
literal-3 or the righthand boundary of the data item is encountered. 

• When the UNTIL FIRST option is used, the substitution of literal-2 
or literal-4 terminates as soon as literal-1 or literal-3 or the 
righthand boundary of the data item is encountered. 

• When the FIRST option is used, the first occurrence of literal-1 or 
literal-3 is replaced by literal-2 or literal-4. 


The EXIT statement provides a common end point for a series of procedures. 
EXIT . 

The word EXIT appears in a sentence by itself. It must be preceded by a 
paragraph name and be the only sentence in the paragraph. 

It is sometimes necessary to transfer control to the end point of a series of 
procedures. Normally control is transferred to the next paragraph or section, 
but in some cases this does not have the required effect. For instance, the 
point to which control is to be transferred may be at the end of a range of 
procedures governed by a PERFORM or at the end of a declarative section. 

The EXIT statement is provided to enable a procedure name to be associated 
with such a point. 

If control reaches an EXIT paragraph and no associated PERFORM or USE 
statement is active, control passes through the EXIT point to the first 
sentence of the next paragraph. 
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4.7.n 

GO TO 


The GO TO statement causes control to be transferred from one part of the 
Procedure Division to another. 


Format 1: 


GO TO [procedure-name-1] 
Format 2: 


GO TO procedure-name-1 [, procedure-name-2] 
procedure-name-n DEPENDING ON identifier 

Each procedure name is the name of a paragraph or section in the Procedure 
Division. Identifier is the name of a numeric elementary item with no posi¬ 
tions to the right of the assumed decimal point. 


Whenever a format 1 GO TO statement is executed, control is transferred to 


. V/OOUU.J. O 
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been altered by an ALTER statement. 


If procedure-name-1 is not specified in format 1, an ALTER statement re¬ 
ferring to this GO TO statement must be executed prior to the GO TO statement. 
When the GO TO statement is referred to by an ALTER statement the following 
rules apply; 


• GO TO statement must have a paragraph name. 

• GO TO statement must be the only statement in the paragraph. 


If a format 1 GO TO statement appears in an imperative sentence, it must be 
the only or last in a sequence of imperative statements. 

A format 2 GO TO statement causes control to be transferred to procedure- 
name-1, procedure-name-2,... , procedure-name-n, depending on whether 
the value of the identifier is 1, 2,..., n. If the value of identifier is other 
than a positive or unsigned integer in the range 1 to n, control passes to the 
next statement. 


Examples: 

1. ADD 1 TO COUNT. 

2. IF COUNT GREATER 3 GO TO CONTINUE. 

3. GO TO PRl PR2 PR3 DEPENDING ON COUNT. 
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4 . 7.12 

IF 


The IF statement causes a condition to be evaluated; subsequent action of the 
object program depends on whether the value is true or false. 


IF condition; 


statement-1 
NEXT SENTENCE 


j statement-2 
I NEXT SENTENCE 


Statement-1 and statement-2 represent a conditional statement or an impera¬ 
tive statement; either may be followed by a conditional statement. 

The phrase ELSE NEXT SENTENCE may be omitted if it immediately precedes 
the terminal period of the sentence. 

When an IF statement is executed, the following action is taken: 


e If the condition is true, statements immediately following the condition 
are executed; control then passes implicitly to the next sentence. 

• If the condition is false, either statements following ELSE 

(statement-2) are executed, or if the ELSE clause is omitted, the 
next sentence is executed. 


If the words NEXT SENTENCE are written and the condition is met, control 
passes explicitly to the next sentence. 


Examples: 

1. IF COUNTER IS GREATER THAN 5 GO TO RESET-CNT; ELSE 
ADD 1 TO COUNTER GO TO UPDATE-PROC. 

2. IF A IS NUMERIC MULTIPLY A BY B; IF B IS LESS THAN 50 
ADD A B TO C ELSE ADD A B TO D ELSE GO TO BADCLASS. 

3. IF PERFORM-COUNT IS POSITIVE; GO TO START; ELSE NEXT 
SENTENCE. 

4. DATA DIVISION. 

01 PASSING-GRADE. 

88 PASS VALUE 75 TO 100. 

88 FAIL VALUE 0 TO 75. 


PROCEDURE DIVISION. 


IF PASS GO TO X. 


If statement-1 and statement-2 contain an IF statement, the IF statement is 
said to be nested. 
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IF statements within IF statements may be considered as paired IF and ELSE 
combinations 5 proceeding from left to right. Any ELSE encountered is con¬ 
sidered to apply to the immediately preceding IF that has not been already 
paired with an ELSE. 

When control is transferred to the next sentence, implicitly or explicitly, 
control passes to the next sentence as written or to a return mechanism of a 
PERFORM or a USE statement. 

The following sentence contains two independent nests of conditional statements. 
The first nest ends after the statement PERFORM procedure-name-2; the 
second nest consists of the remainder of the sentence and has an implied 
ELSE NEXT SENTENCE before the period. A, B, C,D, E,F each corresponds 
to a conditional expression. 

IF A; IF B PERFORM procedure-name-1 ELSE NEXT SENTENCE 
ELSE IF C NEXT SENTENCE ELSE PERFORM procedure-name-2 
IF D PERFORM procedure-name-3 IF E PERFORM procedure-name-4 
IF F PERFORM procedure-name-5 ELSE PERFORM procedure-name-6 
ELSE STOP RUN. 
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The following flow-chart indicates the execution of this sentence. 



Next 

Sentence 
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4 . 7.13 

MOVE 


The MOVE statement transfers data, in accordance with the rules of editing, 
to one or more data areas. 

Format 1: 

MOVE \ -j-Q identifier-m f, identifier-nl .. . 

- literal-1 \ - 


Format 2: 


_\ CORRESPONDING 

- 


identifier-1 TO identifier-2 


In format 1, identifier-1 and literal-1 represent the sending area; identifier-m, 
identifier-n..., represent the receiving area. 

The data designated by the literal or identifier-1 is moved first to identifier-m, 
then to identifier-n, etc. 


When both the sending and receiving items are elementary the move is ele¬ 
mentary. Every elementary item belongs to one of the following categories: 
numeric, alphabetic, alphanumeric, numeric edited, alphanumeric edited, 
floating point edited. Numeric literals belong to the category numeric, and 
nonnumeric literals belong to the category alphanumeric. 

The following elementary MOVES are illegal: 


Source Item Category 

Numeric Edited 
Alphanumeric Edited 
Floating Point Edited 
Alphabetic 

Numeric 
Numeric Edited 
Floating Point Edited 

Numeric (non-integer)- 


Receiving Item Category 

Numeric 
Numeric Edited 

—► Alphabetic 

Alphanumeric 
Alphanumeric Edited 
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All other elementary MOVES are legal, and are performed according to the 
following rules: 

MOVE to Alphanumeric Edited, Alphanumeric, Alphabetic: 

Justification and any necessary space-filling takes place as defined under 
the JUSTIFIED clause. If the size of the sending item is greater than the 
size of the receiving item, the excess characters are truncated after the 
receiving item is filled. 


Examples: 

Source Data 



"ABCD” 

ALL "ABCD” 

"ABC-123" 

"123" 

ALL "123" 
ALL 123 






MOVE to Numeric, Numeric Edited, Floating Point Edited: 

Alignment by decimal point and any necessary zero-filling is done auto¬ 
matically except where zeros are replaced because of editing requirements. 
If the sending item has more digits to the left or right of the decimal point 
than the receiving item can contain, excess digits are truncated. If the 
sending item contains any non-numeric characters, the results at object 
time are unpredictable. 
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Examples: 


Picture of 
Receiving Item 


Source Data 



+1.23 

123 

ZEROS 



99V9 

999V99 

9999 

9999 

S9V99 

9V9 

9V9 

S9V99 

S9V9 

9(5) 

S99999 

$**9.99 

999.9 

$**9.99 


Receiving Item 



Any necessary conversion of data from one form of internal representation 
to another takes place during the move along with any specified editing in 
the receiving item. 

A move that is not an elementary move is treated exactly as if it were an 
elementary alphanumeric to alphanumeric move. An index data item cannot 
appear as an operand in a MOVE statement. 

If the CORRESPONDING option is used, selected items within identifier-1 are 
moved to selected items within identifier-2, according to the rules for the 
CORRESPONDING option. Results are the same as if the user had referred 
to each pair of corresponding identifiers in separate MOVE statements. Only 
one identifier may appear to the right of the word TO. Both identifier-1 and 
identifier-2 must be group items. 
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Example ; 


If a record named MASTER contains information to be written as part of a 
record called MAST-REP, the MOVE CORRESPONDING statement can 
specify movement of all relevant data. 


01 MASTER 

03 ITEM-NUMBER 
03 ITEM-NAME 

05 GENERAL-CLASS 
05 DETAIL-NAME 
03 ON-HAND-QUAN 
03 REORDER-LEVEL 
03 RETAIL-PRICE 
03 WHOLESALE-LEVEL 
03 WHOLESALE-PRICE 
03 YEAR-TO-DATE-SALES 
03 YEAR-TO-DATE-PROFIT 
03 LAST-YEAR-SALES 
03 LAST-YEAR-PROFIT 


01 MAST-REP 

03 ITEM-NUMBER 
03 ITEM-NAME 

05 GENERAL-CLASS 
05 DETAIL-NAME 
03 YEAR-TO-DATE-SALES 
03 LAST-YEAR-SALES 
03 YEAR-TO-DATE-PROFIT 
03 PROJECTED-PROFIT 
03 LAST-YEAR-PROFIT 
03 SALES-COMP 
03 PROFIT-COMP 


MOVE CORRESPONDING MASTER TO MAST-REP results in movement of 
items: ITEM-NUMBER, ITEM-NAME (GENERAL-CLASS and DETAIL- 
NAME), YEAR-TO-DATE-SALES, LAST-YEAR-SALES, YEAR-TO-DATE- 
PROFIT, and LAST-YEAR-PROF IT. 
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4 . 7.14 

MULTIPLY 


The MULTIPLY statement causes numeric data items to be multiplied and 
sets the value of a data item or items equal to the results. 

Format 1: 


MULTIPLY 


\ identlfier-1 
J literal-1 


BY identifier-m [ ROUNDED] , [identifier-n 


[ROUNDED]]... [; ON SIZE ERROR imperative-statement] 
Format 2: 


MULTIPLY 


\ identifier-1 


BY 


\ identifier-2 


I literal-1 \ - ) literal-2 


GIVING identifier-m [ROUNDED] , [identifier-n f ROUNDED ]] . . 
[; ON SIZE ERROR imperative-statement] 


hi format 1, each identifier must refer to a numeric elementary item. In 
format 2, an identifier to the right of the word GIVING may refer to a data 
item that contains editing symbols. Each literal must be a numeric literal. 
The maximum size of each operand is 18 decimal digits. The initial value of 
identifier-1 or literal-1 is multiplied by the initial values of identifier-m, 
identifier-n,... The resulting products replace the values of identifier-m, 
identifier-n, . .. respectively. 

In format 2, the initial value of identifier-1 or literal-1 is multiplied by 
identifier-2 or literal-2 and the result is stored in identifier-m, 
identifier-n,... respectively. 

Examples: 

1. MULTIPLY 1. 05 BY MONTHLY-EARNINGS, OVERTIME-RATE, 

SOC-SEC, FEDERAL-TAX. 

2. MULTIPLY ALPHA BY BETA GIVING CHI ROUNDED DELTA 

ROUNDED ON SIZE ERROR PERFORM ERROR-ROUTINE. 


60229400 


4-39 



4 . 7.15 

NOTE 


The NOTE sentence allows the user to write commentary which will be 
produced on the listing, but not compiled. 


NOTE character-string. 

Any combination of the characters from the allowable character set may be 
included in the character string. 

If a NOTE sentence is the first in a paragraph, the entire paragraph is con¬ 
sidered to be part of the character string. Format rules for paragraph 
structure must be observed. 

If a NOTE sentence is not the first sentence of a paragraph, the commentary 
ends with the first instance of a period followed by a space. 

Examples: 

1. CCIO. PERFORM SUMMARIZE. 

NOTE THIS PROCEDURE WILL SUMMARIZE THE FINAL 
RESULTS. 

2. NOTE-PARAG. NOTE SINCE THE FIRST WORD IN THE 
PARAGRAPH IS A NOTE, NO MATTER WHAT THE FOLLOWING 
SENTENCES SAY, THEY ARE ACCEPTED AS COMMENTARY ONLY. 
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4 . 7.16 

OPEN 


The OPEN statement initiates the processing of both input and output files. 

It performs checking and/or writing of labels and other input-output operations. 


OPEN 


INPUT file-name-1 


i REVERSED 
j WITH NO REWIND 


\ REVERSED 
j WITH ITO REWIND 


OUTPUT file-name-1 [WITH ^ REWIND ] 


[, file-name-2 [WITH NO REWIND] ] . . . 


I-O file-name-1 [, file-name-2] . .. 
INPUT-OUTPUT file-name-1 [, file-name-2 


file-name-2 



At least one of the options INPUT, OUTPUT, I-O must be specified; however, 
there should be no more than one instance of each option per statement. These 
options may appear in any order. The I-O and INPUT-OUTPUT options per¬ 
tain only to mass storage files. 

All files except sort files must be opened with an OPEN statement prior to 
execution of the first SEEK, READ, WRITE or CLOSE statement for that file. 
Sort files must not be named in an OPEN statement. OPEN does not obtain 
or release the first data record; a READ must be executed to obtain, or a 
WRITE to release the first data record. A second OPEN statement for a file 
cannot be executed prior to the execution of a CLOSE statement for that file. 

The user's beginning label subroutine is executed for checking or writing the 
first label if one is specified by a USE statement. 

The REVERSED and NO REWIND options can be used only with sequential 
single-reel files; they do not apply to mass storage processing. If the external 
device permits rewinding, and if REVERSED or NO REWIND are not specified, 
execution of the OPEN statement positions the file at its beginning. 

If either REVERSED or NO REWIND is specified, the file is not repositioned. 
REVERSED assumes the file is positioned at its end; NO REWIND assumes 
the file is positioned at its beginning. 
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When REVERSED is specified, subsequent READ statements make the data 
records of the file available in reverse order; that is, starting with the last 
record. Caution; The format of files to be read in reverse must be either 
unblocked logical records or blocked fixed-length logical records. 

If OPTIONAL is specified for an input file in the File-Control paragraph of the 
Environment Division, the input-output control system checks for the presence 
or absence of this file. If the file is not present, the first READ statement 
for this file causes the imperative statement in the AT END phrase to be 
executed. 


The I-O option permits the opening of a mass storage file for both input and 
output operations. Since this option implies the existence of the file, it 
cannot be used if the mass storage file is being created. 

When the access mode is sequential, the OPEN statement supplies the initial 
address of the first record to be accessed in mass storage files. 

When an attempt is made to open a mass storage file which the MASTER 
operating system indicates does not exist, the input-output system will 
attempt to allocate the file internally only if a FILE-LIMITS clause was 
specified for the file. 


The following label information must be included in the FD entry for a file 
which is to be internally allocated: 

I IP ( T<? )data-name-1 ) 

IDENTIFICATION j jliteraI-1 j 

\ OWNER I I data-name-2 / 

I OWNER-ID ( /literal-2 ( 

EDITION-NUMBER IS 
- / literal-3 I 

ACCESS-PRIVACY IS S data-name-4 / 

- / literal-4 ^ 


MODIFICATION-PRIVACY IS 

The number of blocks to be allocated 
the FILE-LIMITS clause. 


! data-name-5 / 
literal-5 I 

initially must be given as integer-1 of 
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The size of each mass storage block is determined from the BLOCK CONTAINS 
clause and/or RECORD CONTAINS clause. If the clause BLOCK CONTAINS 
integer-1 TO integer-2 CHARACTERS is given, a block size of integer-2 
characters is allocated. 

If the clause BLOCK CONTAINS integer-1 TO integer-2 RECORDS and 
RECORD CONTAINS integer-3 TO integer-4 CHARACTERS are given, a 
block size equal to integer-2 times integer-4 characters is allocated. 

In addition to the basic block size, eight characters are added to allow for a 
header used iaternally by the input-output control system. This header is 
never accessible to the user program. 

Files assigned to TTY or CRT are assumed by MASTER to be I-O files when 
the device is opened. 

Examples: 

1. OPEN INPUT CARD-FILE . 

2. OPEN OUTPUT PRINT-FILEA WITH NO REWIND PRINT-FILEB. 

3. OPEN INPUT-OUTPUT MASTER-FILE. 
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4 . 7.17 

PERFORM 


The PERFORM statement is used to depart from the normal execution sequence 
to execute one or more procedures either a specified number of times or until 
a specified condition is satisfied and to return control to the normal sequence. 


Format 1 (simple): 

PERFORM procedure-name-1 [ THRU procedure- 
Format 2 (TIMES): 

PERFORM procedure-name-1 [ THRU procedure- 
\ identifier-1, 


I integer-1 
Format 3 (UNTIL): 

PERFORM procedure-name-1 [ THRU procedure- 
UNTIL condition-1 


Format 4 (VARYING): 

PERFORM procedure-name-1 [ THRU procedure- 


VARYING 


! index-name-1 
identifier-1 


i index-name- 
FROM < literal-2 

r identifier-2 


BY 


j literal-3 
) identifier-3 


UNTIL condition-1 


AFTER 


index-name-4 
identifier-4 


! index-name-5 
literal-5 
identifier-5 


j literal-6 
- ) identifier-6 


UNTIL condition-2 


FaFTER ^^<^®x-name-7 


I identifier-7 


(literal-8 

FROM < identifier-8 
r index-name- 


BY 


\ literal-9 
/identifier-9 


UNTIL condition-3 


■name-2] 


•name-2] 


•name-2] 


■name-2] 
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Each procedure name is the name of a section or paragraph in the 
Procedure Division. 

Each identifier represents a numeric elementary item described in the Data 
Division. In format 2, the identifier represents a numeric item with no 
positions to the right of the assumed decimal point. 

A literal must be numeric. 


When the PERFORM statement is executed, control is transferred to the first 
statement of procedure-name-1. An automatic return is made to the state¬ 
ment following the PERFORM statement. If the THRU option is not specified, 
the return follows execution of the last statement of the paragraph or section 
referred to by procedure-name-1. If the THRU option is specified, the return 
follows execution of the last statement of the paragraph or section referred to 
by procedure-name-2. 

The only relationship necessary between procedure-name-1 and procedure- 
name-2 is that a consecutive sequence of operations is to be executed 
beginning at procedure-name-1 and ending with the last statement in 
procedure-name-2. GO TO and PERFORM statements may occur between 
these limits. If there are two or more direct paths to the return point, then 
procedure-name-2 may name a paragraph containing an EXIT statement, to 
which all these paths must lead. 

If control passes to these procedures by means other than a PERFORM state¬ 
ment, it passes through the last statement of the procedure to the following 
statement as if no PERFORM statement mentioned these procedures. 


A procedure referenced by a PERFORM statement can include within it 
another PERFORM statement only if the procedure associated with the 
second PERFORM is entirely within or entirely without the procedure 
referenced by the first PERFORM. 


Correct Specifications 


X PERFORM a THRU m x PERFORM a THRU m 
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Incorrect Specifications 


X PERFORM a THRU m a 


a- 

d PERFORM f THRU j 
f - 

jn - 

j 


b PERFORM c THRU f 

c - 

d- 

f - 

X PERFORM a THRU d 


A procedure associated with one PERFORM statement can overlap or inter¬ 
sect the procedure associated with another PERFORM if neither procedure 
includes the PERFORM statement associated with the other procedure. 

Correct Specification 

X PERFORM a THRU m 

a - 

f - 

m- 

j - 

d PERFORM f THRU j 


Format 1: 

A procedure referenced in the basic PERFORM statement is executed once 
and then control passes to statement following the PERFORM. For example: 

PERFORM SUMMARY. 

Format 2: 

When the TIMES option is used, the procedures are performed the number of 
times specified by the value of integer-1 or the initial value of identifier-1. 

At the time of execution, this value must not be negative. If the value is zero, 
control passes immediately to the statement following the PERFORM. Other¬ 
wise, the procedures are executed the specified number of times and then 
control passes to the statement following the PERFORM. Once execution is 
begun, any change to identifier-1 has no effect on the number of times the 
procedures are executed. 
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Examples: 


1. PERFORM CALCULATION 4 TIMES. 

2. PERFORM ISSUE NO-COPIES TIMES. 

Format 3: 

If the UNTIL option is specified, the procedures are performed until the 
specified condition is true. Control returns to the statement following the 
PERFORM statement. If the condition is true when PERFORM is first 
encountered, the procedure is not executed. 

Example: 

PERFORM REORDER UNTIL ON-ORDER + SUPPLY = AV-USE * 2 or 
SUPPLY GREATER THAN AV-USE * 2. 

Format 4: 

The VARYING option augments the value of one or more identifiers or index 
names during execution of the PERFORM statement. Every reference to an 
identifier as the object of the VARYING and FROM phrases also refers to 
index names. When index names are used, the FROM and BY clauses have 
the same effect as in a SET statement. 

When one identifier is varied, identifier-1 is set equal to the value of 
identifier-2 or literal-2 at the start of execution of the PERFORM. The 
condition is evaluated, and if false, the sequence of procedures (procedure- 
name-1 through procedure-name-2) is executed once. Then the value of 
identifier-1 is augmented by the increment or decrement specified by 
identifier-3, and condition-1 is evaluated again. The cycle continues until 
the condition is true; then control passes to the statement following the 
PERFORM. If the condition is true at the start of execution, control passes 
directly to the statement following PERFORM. 

Examples of a PERFORM statement with one varying identifier: 

1. PERFORM ABLE THRU BAKER VARYING ID-1 FROM ID-2 BY 
ID-3 UNTIL ID-1 = 20. 

2. PERFORM RATE-CALC VARYING QUAN FROM 50 BY 5 UNTIL 
QUAN GREATER 200. 
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The first example is illustrated in the following flow chart: 


Entrance 

(from statement previously executed) 


I 



When the optional clause beginning with AFTER is included, two identifiers 
are varied. Identifier-1 and identifier-4 are set to the values of identifier-2 
and identifier-5, respectively. (During execution, these initial values must 
be positive). At the start of execution, condition-1 is evaluated. If true, 
control is transferred to the statement following the PERFORM. If false, 
condition-2 is evaluated. If condition-2 is false, procedure-name-1 through 
procedure-name-2 is executed once, after which identifier-4 is augmented by 
identifier-6 and condition-2 is evaluated again. This cycle of execution and 
augmentation continues until condition-2 is true. When it is true, identifier-4 
is set to its initial value (identifier-5), identlfier-1 is augmented by 
identifier-3, and condition-1 is re-evaluated. The PERFORM statement is 
completed if condition-1 is true; if not, the cycles continue until condition-1 
is true. The identifiers following BY (identifier-3 and identifier-6) must not 
be zero. 

Example of a PERFORM varying two identifiers: 

PERFORM CALCULATION VARYING CNT FROM 1 BY 1 UNTIL 

CNT = 100 AFTER AMNT FROM ORIG BY DIFF UNTIL AMNT 

GREATER LIMT. 
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Entrance 

(from statement previously executed) 


1 



At termination of the PERFORM statement, AMNT contains its initial value. 
CNT has a value that exceeds the last used setting by an increment or decre¬ 
ment, unless condition-1 was true when the PERFORM statement was entered, 
in which case CNT and AMNT contain their initial values. 

For three identifiers, the mechanism is the same as for two identifiers except 
that identifier-7 goes through a complete cycle each time that identifier-4 is 
augmented by identifier-6 or literal-6, which in turn goes through a complete 
cycle each time identifier-1 is varied. 

Example of PERFORM varying three identifiers: 

PERFORM PROC-1 THRU PROC-2 VARYING ID-1 FROM ID-2 BY ID-3 
UNTIL ID-1 EQUAL TO TERM-1 AFTER ID-4 FROM ID-5 BY ID-6 
UNTIL ID-4 GREATER LIMIT-2 AFTER ID-7 FROM ID-8 BY 1 UNTIL 
ID-7 = 5. 
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Entrance 

(from statement previously executed) 



Upon completion of the PERFORM, ID-4 and ID-7 contain their initial values, 
ID-1 has a value exceeding its last used setting by one increment or decrement. 
If ID-1 equals TERM-1 (condition-1 is true) when the PERFORM statement is 
entered, ID-1, ID-4, and ID-7 all contain their initial values. 
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4.7.18 

READ The READ statement makes the next logical record available from an input 

file and allows performance of a specified imperative statement when end of 
file is detected. 

Format 1: (for sequential files from any device) 

READ file-name RECORD [ INTO identifier-1] 

; AT END imperative-statement 
Format 2: (for random access mass storage files only) 

READ file-name RECORD [INTO identifier-1] 

; INVALID KEY imperative-statement 

An OPEN statement must be executed for a file prior to execution of the first 
READ statement for that file. 

If INTO is specified, the data is read into both the record area and the area 
specified by identifier-1. 

Format 1: 

If the logical end of the file is reached during execution of a READ, and an 
attempt is made to read that file, the AT END imperative statement is exe¬ 
cuted. Files assigned to TTY and CRT have no end-of-file condition, so the 
AT END phrase is never executed. Following execution of the AT END 
imperative statement, a READ statement for that file must not be given unless 
a prior CLOSE and OPEN for the file have been executed. 

When a file consists of more than one t5q)e of logical record, these records 
automatically share the same storage area; this is equivalent to an implicit 
redefinition of the area. Only the information present in the current record 
is accessible. 

If a file described with the OPTIONAL clause is not present, the imperative 
statement in the AT END phrase is executed on the first READ and standard 
end-of-file procedures are not performed. 

If the end of a tape reel is recognized during execution of a READ statement on 
a multi-reel/unit file, the following operations are carried out: 
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• standard ending reel label procedure and user's ending reel label 
procedure, if specified, by the USE statement. The order of 
execution is specified by the USE statement. 

• Tape swap. 

• Standard beginning reel label procedure and user's beginning reel 
label procedure, if specified. The order of execution is specified 
by the USE statement. 

• First data record on the new reel is made available. 

Format 2: 

The READ statement implicitly performs the functions of a SEEK statement 
for a specific mass storage file, unless a SEEK statement for the file is 
executed prior to the READ. Records in the file are read in accordance with 
the contents of the ACTUAL KEY data item. The user is responsible for 
setting the contents of this data item prior to execution of the READ statement 
(ACTUAL KEY, chapter 2). If an attempt is made to read a mass storage 
record and contents of the associated ACTUAL KEY data item are outside the 
allocated file area, the INVALID KEY phrase is executed. The allocated area 
of a file is the number of blocks assigned to it by the ALLOCATE request of 
the MASTER *DEF function (section 7.3.3). 

Regardless of the method used to overlap access time with processing time, 
the concept of the READ statement is unchanged in that a record is available 
prior to the execution of any statement following the READ statement. 

Examples: 

READ MASTER-FILE AT END MOVE 1 TO MASTER-ENDED-IND 
GO TO END-MASTER. 

READ DETAIL-FILE AT END GO TO END-DETAIL. 

READ INVENT-FILE AT END ADD 1 TO INVENT-IND GO TO END- 
INVENT. 

READ DATA-FILE INTO ITEM-1 INVALID KEY DISPLAY "END DATA". 
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4 . 7.19 

RELEASE 


The RELEASE statement transfers records to the initial phase of a SORT 
operation. It is equivalent to a WRITE statement applied to a sort file. 

RELEASE record-name [ FROM identifier] 

A RELEASE statement is used only within the range of an input procedure 
associated with a SORT statement for a sort file the description of which 
includes a DATA RECORDS clause containing record name. 

RELEASE causes the record named by record name to be released to the 
initial phase of a sort. RELEASE must be part of an input procedure in the 
SORT statement. When control passes from the input procedure, the sort file 
consists of aU records placed in it by execution of RELEASE statements. 
Following execution of the RELEASE statement, the contents of the record 
area named by record name are no longer available. 

If the FROM option is included, the contents of the identifier data area are 
moved to record name before being released to the sort file. The move is 
made in accordance with the rules governing a simple MOVE without the 
CORRESPONDING option. The information in the data area associated with 
identifier remains available even though the information in the record name 
area is no longer available. 
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4 . 7.20 

RETURN 


The RETURN statement obtains sorted records from the final phase of a 
sort operation. It is equivalent to a READ statement applied to a sorted file. 

RETURN file-name RECORD [ INTO identifier] 

; AT END imperative-statement, 

A RETURN statement is used only within the range of an output procedure 
associated with a SORT statement for the specified file name. File-name is 
a sort file with a Sort File Description entry in the Data Division. 

The INTO option is used only when the input file contains just one type of 
record. The identifier is the name of a working storage area or output 
record area. When INTO is specified, the data is available in both the 
input record area and the data area associated with identifier. 

When a file consists of more than one type of record, records share the 
storage area automatically. This is equivalent to implicit redefinition of 
the area, and only the information that is present in the current record is 
accessible. 

Execution of RETURN causes the next record, in the order specified by the 
keys listed in the SORT statement, to be made available for processing in 
the record area associated with the sort file. Moving is performed according 
to the rules specified for the MOVE statement without the CORRESPONDING 
option. After execution of the imperative statement in the AT END phrase, 
no more RETURN statements can be executed within the current output 
procedure. 


4-54 


60229400 



4 . 7,21 

SEARCH 


The SEARCH statement is used to search a table for an element that satisfies 
the specified condition and to adjust the associated index name or index data 
item to point to that table element. (See Table Handling, section 4. 5, also 
OCCURS, section 3.5. 6, and SET, section 4, 7= 2.3=) 

Format 1 (linear search): 

SEARCH identifier-1 [varying <[ 

- - (identifier-2 

[; AT END imperative-statement-1] 


; WHEN condition-1 


( imperative-statement-2 
1 NEXT SENTENCE 


; WHEN condition-2 


( imperative-statement-3 
( NEXT SENTENCE 


T7/-\t*tv»o+ 9 coofincr 

JL V./JL J.J-.iCi't' ^ V./>./VA.kiX^ • 


a/' 


SEARCH ALL identifier-1 [; AT END imperative-statement-1] 



; WHEN condition-1 


( imperative-statement-2 
I NEXT SENTENCE 


Identifier-1 cannot be subscripted or indexed. Its description must contain an 
OCCURS clause with the INDEXED BY option. In format 2, identifier-1 must 
also contain the KEY IS option in its OCCURS clause. When format 1 is used, 
condition-1, condition-2, etc, are any conditions defined in section 4.3. hi 
format 2, condition-1 is limited to a relation condition using the relational 
operator EQUAL TO (=), a condition-name condition, or a compound condition 
formed by joining the first two conditions with an AND. 


If index-name-1 is specified in the VARYING option, it must appear in the 
INDEXED BY option of an OCCURS clause describing either the table associated 
with identifier-1 or another table. If index-name-1 is in the INDEXED BY 
option of another table, the first (or only) index-name given in the INDEXED 
BY option for identifier-1 is used and index-name-1 is simultaneously incre¬ 
mented by the element character offset of the other table. 

If identifier-2 is specified in the VARYING option, it must be either an index 
data item described with a USAGE IS INDEX clause or an elementary numeric 
item with no positions to the right of the assumed decimal point. 
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Format 1: 


A simple SEARCH statement defines a linear search (a serial type of search 
operation). The search starts by checking the character address bias of the 
first (or only) index name listed in the INDEXED BY option for this table. 

The character address bias is the value which, when added to the base address 
of a table, gives the character address of a particular element in the table. 

If this value is greater initially than the highest permissible location value for 
identifier-1, the search terminates. 

If the AT END clause is specified, the imperative statement associated with 
AT END is executed; otherwise, control passes to the next sentence. If the 
character address bias is not greater than the highest permissible location 
value for identifier-1, the conditions specified in the SEARCH statement are 
evaluated in the order they are written. 

If no condition is satisfied, the index name is incremented by the element 
character offset to reference the next table element. The element character 
offset is the number of character positions in a table element. This process 
is repeated until one of the conditions is satisfied or the character address 
bias of the index name exceeds the table limit by one or more entries. 

If a condition is satisfied, the imperative statement associated with the 
condition is executed. The index name remains set at the character address 
bias of the entry which satisfied the condition. 

If the table limit is exceeded before a condition is satisfied, the AT END 
imperative statement is executed; otherwise, control passes to the next 
sentence. 

If the SEARCH statement references an identifier-1 in a group or hierarchy 
of groups described with an OCCURS clause, each group must have an 
associated index name. Index name settings are used throughout the SEARCH 
to refer to identifier-1 or items within it. Only the index name associated 
with identifier-1 is incremented by the SEARCH; the items identifier-2 or 
index-name-1 are also incremented if they are specified in the VARYING option. 

The VARYING option permits the location of entries in an associated table 
simultaneously with location of entries in the primary table (identified by 
identifier-1). If index-name-1 appears in the INDEXED BY clause describing 
identifier-1, that index name is used for the search, otherwise the first (or 
only) index name given in the INDEXED BY clause of identifier-1 is used. 
However, if index-name-1 appears in the INDEXED BY clause of another table, 
index-name-1 is incremented by the character address bias of the other table. 
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The starting point of a linear search may be established by using the SET 
statement to preset values of the index names associated with the table. 

SET need not be used with all SEARCH statements since the starting point of 
a linear search depends on the current value of the index name associated 
with the table or the index name specified m the VARYING option of the 
SEARCH statement. Thus, one SET... SEARCH combination can establish 
a position within the table and subsequent SEARCH statements will begin 
with the last setting of the table's index name. The SET statement does not 
apply to a bisecting search since the initial setting of the index name is 
ignored in that type of search. 

Format 2: 

The SEARCH ALL statement provides a bisecting nonserial type of search 
operation. The initial setting of the index name for identifier-1 is ignored 
and the index name setting is varied as the bisecting search takes place. 

The setting value will not exceed the location value of the last element in the 
table, nor be less than the location value of the first element in the table. 

If condition-1 is satisfied, the index points to the table entry that satisfied the 
condition and the associated imperative statement is executed. If this im¬ 
perative statement does not terminate with a GO TO, control passes to the 
next sentence. 

If condition-1 is not satisfied for any setting of the index within the range per¬ 
mitted for the table, the imperative statement associated with the AT END 
option is executed. K no AT END is specified, control passes to the next 
sentence. When condition-1 cannot be satisfied, the final setting of the index 
is unpredictable. 

Any or all data names in the KEY clause of identifier-1 may appear as subjects 
or objects of a test, or they may be conditional variables with which the tested 
condition name is associated. All preceding data names in the KEY clause 
hierarchy must also be tested within condition-1. No other tests may appear 
in condition-1. 

Examples: 

1. The following example shows a nonserial search of a one-dimensional 
table: 

DATA DIVISION. 

01 TABLE-1. 

03 ID-1 PIC X(4) OCCURS 250 TIMES INDEXED BY INDX-1 
ASCENDING KEY IS ID-1. 


PROCEDURE DIVISION. 



SEARCH ALL ID-1 AT END GO TO END-SEARCH WHEN ID-1 
(INDX-1) = "AlOO" GO TO EMPL-A. 

The bisecting search proceeds until an ID-1 is found with a value of 
"AlOO". If none is found, control passes to the procedure, 
END-SEARCH. 

The search operation is illustrated below. 

Start 


I 
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2. The following example and flow chart illustrate a linear search with 
two WHEN conditional phrases: 

DATA DIVISION. 


01 TABLE-1. 

03 ID-1 PIC X(l0i OCCURS 150 TIMES INDEXED BY INDX-1. 

01 TABLE-2. --— 

03 ID-2 PIC X(12) OCCURS 200 TIMES INDEXED BY INDX-2. 
PROCEDURE DIVISION. 


SEARCH ID-1 VARYIN G INDX-2 A T END GO TO NOT-FOUND 
WHEN ID-1 (INDX-1) - "A 1234567890" GO TO A-FILE 
WHEN ID-2 (INDX-2) *= "A XXXXXXXXXX” GO TO B-FILE. 

INDX-1 and INDX-2 are each incremented until one or the other of the 
two conditions is satisfied or until the character address bias of 
INDX-1 exceeds the table limit of TABLE-1. If neither condition is 
satisfied, control passes to the procedure NOT-FOUND. 
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INDX-1 and INDX-2 are each incremented until one or the other of the two conditions is 
satisfied or until the character address bias of INDX-1 exceeds the table limit of TABLE-1. 
If neither condition is satisfied, control passes to the procedure NOT-FOUND. 


Start 
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4 . 7.22 

SEEK 


The SEEK statement initiates access to a mass storage data record for sub¬ 
sequent reading or writing. 

SEEK file-name RECORD 

A SEEK statement pertains only to mass storage files in the random access 
mode and, when specified, is executed before each READ and WRITE statement. 

SEEK finds the location of the record to be accessed from the contents of the 
ACTUAL KEY identifier. The user is responsible for setting the contents of 
this identifier prior to execution of the SEEK statement (see ACTUAL KEY, 
section 2.3.1). Validity of the contents of the ACTUAL KEY identifier for the 
particular mass storage file is determined at the time of execution. If the 
key is invalid, the imperative statement in the IN\L4LID KEY clause of the 
next READ or W'RITE statement for the associated file is executed. 

Two SEEK statements for the same mass storage file may logically follow each 
other. Any validity check associated with the first SEEK statement is negated 
by execution of a second SEEK statement. 

CAUTION: The intent of the SEEK statement is to provide an overlap 
of actual processing while the read/w^rite heads on a mass storage 
device are being positioned to the next data block that will be refer¬ 
enced by a subsequent READ or WRITE request. The advantage 
gained in the SEEK statement may be lost if other programs within 
the MASTER multiprogramming environment are accessing the 
same mass storage device. Therefore, the SEEK statement should 
be used only on random files that do not share mass storage devices 
with other files. 
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4 . 7.23 

SET 


The SET statement sets values for index names associated with elements in 
tables so that these table elements can be referenced by indexing. 

Format 1: 


findex-name-1) r, index-name-2 

Udentifier-1 / identifier-2 


. .. TO 


index-name-3 

identifier-3 

literal-1 


Format 2: 

cirrr • ^ 4 f • m (UP BY ) /identifier-4) 

SET index-name-4 [, mdex-name-51 ... < _> < } 

- ( DOWN BY ( Uiteral-2 ) 

The identifiers are index data items or numeric elementary items described 
without any positions to the right of the assumed decimal point. However, 
identifier-4 in format 2 may not be an index data item. A literal must be a 
positive integer. The index names must be defined in the INDEXED BY option 
of the OCCURS clause for a given table. 

When SET is used to preset the contents of any index names in a table, all the 
index names which are to be set must be specified in the SET statement. No 
implicit setting is performed. 

Format 1: 

If index-name-1 is specified, it is set to the character address bias which 
corresponds to the occurrence number referred to by or contained in index- 
name-3, identifier-3 or literal-1. If identifier-3 is an index data item, or if 
index-name-3 is related to the same table as index-name-1, no conversion is 
made from occurrence number to character address bias. 

If identifier-1 is specified, the particular action depends on whether it is an 
index data item or a data name containing a numeric elementary item. If it 
is an index data item, it is set equal to the contents of index-name-3 or 
identifier-3 which is also an index data item. Literal-1 cannot be used when 
identtfier-1 is an index data item. 

If identifier-1 is a data name, it is set to the occurrence number that corre¬ 
sponds to the character address bias in index-name-3, Neither identifier-3 
nor literal-1 can be used in this case. 

In the above discussion, all references to index-name-1 and identifier-1 
apply to index-name-2 and identifier-2, respectively. 
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Format 2: 


The contents of mdex-name-4 (and index-name-5, if specified) are incremented 
(UP BY) or decremented (DOWN BY) a value that corresponds to the number of 
occurrences represented by the value of literal-2 or identifier-4. Identifier-4 
must be a data name identifying a numeric elementary item with no positions 
to the right of the assumed decimal point. 

Example: 

DATA DIVISION. 

77 B-1 PIC 99 USAGE IS INDEX. 

77 D-1 PIC 9 USAGE IS INDEX. 

01 ABLE. 

02 BAKER OCCURS 20 TIMES INDEXED BY INDX-B. 

03 CHARLIE PIC 9(3). 

03 DOG PIC X(3) OCCURS 5 TIMES INDEXED BY INDX-D. 


PROCEDURE DIVISION. 

M-1. SET B-1 TO INDX-B. 

M-2. SET D-1 TO INDX-D. 

IF CHARLIE (B-1) LESS THAN 100, 

MOVE DOG (B-1, D-1) TO TABLE-D. 

IF INDX-B GREATER THAN 20; GO TO OUT. 

IF INDX-D LESS THAN 6; SET INDX-D UP BY 1; GO TO M-2; 
ELSE SET INDX-D DOWN BY 5, GO TO M-1. 

OUT. 
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4 . 7.24 

SORT 


The SORT statement creates a sort file by executing input procedures or by 
transferring records from another file. Records in the sort file are sorted on 
a set of specified keys. In the final phase of the sort operation, each record 
from the sort file is made available, in sorted order, to some output pro¬ 
cedures or to an output file. 


SORT file-name-1 ON 


DESCENDING } 
ASCENDING ( 


|identifier-l| 


\ DESCENDING } 
I ASCENDING | 


KEY j identifier-2 j 


INPUT PROCEDURE IS section-name-1 [ THRU section-name-2] 
USING file-name-2 


OUTPUT PROCEDURE IS section-name-3 [THRU section-name-4] 
GIVING file-name-3 


A program may contain more than one SORT statement in the Procedure 
Division. No SORT statement may appear in the Declaratives Section or in 
the input and output procedures associated with a SORT statement. 

File-name-1 is a sort file described in an SD entry in the Data Division. 

Each identifier must represent data items described in records associated 
with file-name-1. Section-name-1 is the name of an input procedure; section- 
name-3 names an output procedure. File-name-2 and file-name-3 are 
described in FD entries in the Data Division. They are not sort files, and 
must not be described in an SD entry. The FILE-CONTROL paragraph of 
the Environment Division must specify only the SELECT and ASSIGN clauses 
for a sort file (file-name-1). FILE-CONTROL for file-name-2 and file¬ 
name-3 may include MULTIPLE and RESERVE as well as SELECT and 
ASSIGN. 

ASCENDING specifies a sorting sequence from the lowest to the highest value 
of KEY; DESCENDING specifies a highest to lowest sequence. The order of 
values is in accordance with the ordered character set given in appendix D. 

The record description of every record listed in the DATA RECORDS clause 
of the sort file must contain the KEY items identifier-1, identlfier-2, etc. 
When KEY items appear in more than one record, data descriptions must be 
equivalent and starting positions must be the same character positions relative 
to the beginning of each record. They may not contain or be subordinate to 
entries that contain an OCCURS clause. The KEY identifiers are listed from 
left to right in the SORT statement in order of decreasing significance without 
regard to how they are divided into KEY clauses. 
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INPUT PROCEDURE consists of one or more sections written consecutively 
which must not be a part of any output procedure. An input procedure can 
include any procedures needed to select, create, or modify records, and at 
least one RELEASE statement to transfer a record to the sort file. Control 
may be passed to an input procedure only when a related SORT statement is 
being executed. If INPUT PROCEDURE is specified, control is passed to the 
input procedure before file-name-1 is sequenced by the SORT statement. 

The compiler inserts a return mechanism at the end of the last section; and 
when the last statement in the input procedure has been executed, the records 
that have been released to the sort file are sorted. 

OUTPUT PROCEDURE consists of one or more sections written consecutively 
which must not be a part of any input procedure. An output procedure may 
consist of any procedures required to select, modify, or copy the records 
that are returned one at a time in sorted order from the sort file. At least 
one RETURN statement must be included in an output procedure to make the 
sorted records available for processing. Control must not be passed to an 
output procedure unless a related SORT statement is being executed. Control 
passes to the output procedure after file-name-1 has been sequenced by the 
SORT statement. The compiler inserts a return mechanism at the end of the 
last section. When the last statement has been executed, this mechanism 
terminates the sort and transfers control to the statement following the SORT 
statement. 

The procedural statements in an INPUT PROCEDURE or an OUTPUT 
PROCEDURE are subject to the following restrictions: 

• The procedure must not contain any SORT statements. 

• The procedure must not transfer control to points outside the 
procedure. 

• The remainder of the Procedure Division must not contain any 
transfers of control to points inside an input or output procedure. 

If USING is specified, the SORT statement automatically performs the functions 
of the OPEN, READ, USE, and CLOSE statements for file-name-2. All the 
records in file-name-2 are transferred automatically to file-name-1 for 
sorting. File-name-2 must not be open at the time of execution of the SORT 
statement. 

If GIVING is specified, all the sorted records in file-name-1 are transferred 
automatically to file-name-3. File-name-3 must not be open when the SORT 
statement is executed. Execution of the SORT statement automatically opens 
file-name-3 before the records are transferred and closes it after the last 
record in the sort file is returned. 
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Examples: 


1. DATA DIVISION. 

FILE SECTION. 

FD GEN-FILE 

BLOCK CONTAINS 10 RECORDS 
LABEL RECORD IS OMITTED 
DATA RECORD IS GEN-REC. 

01 GEN-REC. 

02 IDENT-A PIC 9(8). 

02 IDENT-B. 

03 ID-B PIC 99. 

02 IDENT-C PIC X(20). 

SD SORT-FILE, 

DATA RECORD IS SORT-REC. 

01 SORT-REC. 

02 IDENT-1 PIC 9(8). 

02 IDENT-2. 

03 ID-2A PIC 99. 

02 IDENT-3 PIC X(20). 


PROCEDURE DIVISION. 

A-SORT SECTION. 

ST-1. SORT SORT-FILE ON ASCENDING KEY IDENT-1 

ON DESCENDING KEY ID-2A, IDENT-3 
INPUT PROCEDURE IS INP-1 
OUTPUT PROCEDURE IS OUT-1. 

GO TO REST-OF-PROGRAM. 

INP-1 SECTION. 

OPEN INPUT GEN-FILE. 

I-l. READ GEN-FILE AT END GO TO 1-2. 

MOVE GEN-REC TO SORT-REC. 

RELEASE SORT-REC. 

GO TO I-l. 

1-2. CLOSE GEN-FILE. 

OUT-1 SECTION.. 

OPEN OUTPUT GEN-FILE. 

0-1. RETURN SORT-FILE RECORD AT END GO TO 0-2. 
MOVE SORT-REC TO GEN-REC. 

WRITE GEN-REC. 

GO TO 0-1. 

0-2. CLOSE GEN-FILE. 

REST-OF-PROGRAM SECTION. 


4-66 


60229400 



4 . 7.25 

STOP 


2. Given two files, FILE-1 and FILE-2, with data records identical to 
GEN-REC in example 1, and a sort file identical to SORT-FILE in 
example 1, the following SORT statement can be specified: 

SORT SORT-FILE ON ASCENDING KEY IDENT-1, IDENT-3 
ON DESCENDING KEY ID-2A 

TTSTXrn TTTT TT-I 

W N..* JU i ^ 

GIVING FILE-2. 


The STOP statement halts the object program permanently or temporarily. 



The literal may be numeric, non-numeric, or any figurative constant, 
except ALL. 

if the RUN option is used, the program is terminated and control is returned 
to its caller. 

If the literal option is used, the literal is displayed on the console. The 
program is temporarily suspended until the operator responds. A response 
of any combination of characters other than NO , causes the object program 
to continue with the execution of the next sequential statement. The response 
NO is reserved for the option of terminating program execution. 

If a STOP statement with the RUN option appears in an imperative sentence, 
it must appear as the only or last statement in a sequence of imperative 
statements. 
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4 . 7.26 

SUBTRACT 


The SUBTRACT statement is used to subtract one, or the sum of two or 
more, numeric data items from one or more items equal to the results. 

Format 1: 


[ROUNDEDI , identifier-n fROUNDEDl .. 
[; ON SIZE ERROR imperative-statement] 


FROM identifier-m 


All literals or identifiers preceding the word FROM are added together and 
this total is subtracted from identifier-m, identifer-n, ... The differences 
are stored in the respective identifiers. 


Format 2: 


SUBTRACT 


literal-1 ) ( literal-2 ) 

identifier-1 / ’ (identifier-2 / 


.. FROM 


iliteral-m 
(identifier-m 


GIVING identifier-n fROUNDED l identifier-o [ ROUNDED ] 
[; ON SIZE ERROR imperative-statement ] 


All literals or identifiers preceding the word FROM are added together, 
subtracted from literal-m or identifier-m, and the result stored as the new 
value of identifier-n, identifier-o, ... . 

Format 3: 


SUBTRACT 


( CORRESPONDING ) 
I CORR / 


identifier-1 FROM identifier-2 


[ ROUNDED] [; ON SIZE ERROR imperative-statement] 


Data items in identifier-1 are subtracted from and stored into corresponding 
data items in identifier-2. 


Each identifier must refer to a numeric elementary item except in format 2, 
where an identifier which appears to the right of the word GIVING may refer 
to a data item that contains editing symbols. Each literal must be a numeric 
literal. 
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The maximum size of each operand is 18 decimal digits; and the composite of 
operands, must not contain more than 18 digits. The composite of operands 
is the data item resulting from superimposing all operands aligned by decimal 
point, excluding the data items that follow the word GIVING. 

The compiler insures that enough places are carried to avoid loss of significant 
digits during execution. 

Examples: 

SUBTRACT SOC-SEC FEDERAL-TAX TOTAL-DEDUCTIONS FROM 
MONTHLY-GROSS GIVING MONTHLY-NET. 

SUBTRACT CORRESPONDING UPDATE-RATE-TABLE FROM 
RATE-TABLE. 

SUBTRACT DAY OF CURRENT-DATE FROM 30 GIVING DAYS-LEFT 
ON SIZE ERROR ADD 1 TO ERROR-COUNTER. 
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4 . 7.27 

TRACE 


The TRACE statement is a source language debugging tool which enables the 
user to display literals and the contents of data names on the job standard 
output file during execution of the object program. 

TRACE [ WHEN integer-1] f EVERY integer-2] [UNTIL integer-S] 

[literal-1 
(data-name-1 

Any number of TRACE statements may be inserted in the Procedure 
Division of a COBOL source program. 

Compilation of TRACE statements is controlled by the TRACE parameter on 
the UCBL control card for the program. When the T parameter is specified, 
all TRACE statements are compiled into the object program at the points of 
occurrence. 

During program execution, as each compiled TRACE request is encountered, 
each specified literal value is displayed as given. The contents of data names 
are displayed in edited form according to the edit picture assigned to each 
data name. The data name followed by a space, an equal sign and another 
space are presented preceding the value. All literals and values are displayed 
in a linear fashion across the print line. 

WHEN integer-1 indicates the first execution of the TRACE statement. Each 
time the program enters a TRACE request, a counter initially set to one is 
incremented by one and a comparison is made with the value given as integer-1. 
When the counter equals integer-1, the literals and values for the request are 
displayed for that cycle and all successive integer-2 cycles, until integer-3 
has been reached. If WHEN integer-1 is omitted, the TRACE begins at the 
first cycle. 

EVERY integer-2 indicates the timing between each display. If this option is 
omitted, a display is generated during each cycle of the TRACE request. 

UNTIL integer-3 indicates the maximum number of TRACE cycles to be 
processed before the request becomes inoperative. If the option is omitted, 
the TRACE request is processed until program execution is ended. 

A TRACE statement may be continued on succeeding source lines, it may 
begin on or after column 12. 


literal-2 

data-name-2 


4-70 


60229400 



Example: 


READ FILE-A AT END GO TO FINISH. 

TRACE WHEN 50 EVERY 10 UNTIL 5000 "FILE-A” 
REC-COUNT, REC-ID, ’’THE FOLLOWING" REC-SIZE. 

The result of the TRACE statement is: 

FILE-A REC-COUNT = 1,500 REC-ID = INV-MAST THE 
FOLLOWING REC-SIZE = 150 
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4 . 7.28 

USE 


The USE statement introduces user-defined input-output label and error 
handling procedures. 

Format 1: 


USE AFTER STANDARD 
ERROR PROCEDURE ON 


I file-name-1 [file-name- 
INPUT 
OUTPUT 
I-O 

IN PUT-OUT PUT 



Format 2: 


USE 


j BEFORE / 
I AFTER j 


STANDARD 


'j BEGINNING 
) ENDING 


n 


r r REEL \ -| 



) FILE i 



(unit ) 


LABEL PROCEDURE ON 


file-name-1 [file-name-2] 

INPUT 

OUTPUT 

I-O 

INPUT-OUTPUT 


Format 3: 

USE BEFORE REPORTING identifier-1 [,identifier-2 ...] . 


A USE statement immediately follows a section header in the Declaratives 
portion of the Procedure Division. It must be followed by a period and a 
space. The remainder of the section consists of one or more procedural 
paragraphs defining the procedures to be used. 

The USE statement itself is never executed, rather it defines the conditions 
calling for execution of the USE procedures. 

A USE procedure must not contain any reference to non-declarative proce¬ 
dures. Conversely, the non-declarative portion must not contain references 
to procedure names that appear in the declarative portion; except that a 
PERFORM statement may refer to a USE declarative or to the procedures 
associated with a USE declarative. 

The only I-O statements allowed within a USE procedure are ACCEPT, 
DISPLAY, and CLOSE. A file name must not be referred to explicitly or 
implicitly in more than one USE statement. No file name referred to in a 
USE procedure can represent a sort file. 
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The USE procedures in format 1 are executed by the input-output control 
system after completion of the standard input-output error routine. 

If a bad block is read, the error declarative is executed for each READ 
statement that causes retrieval of a logical record from the bad block. 

On entry to the declarative, the record requested will have been moved to 
the record area. Upon exiting the declarative, the input-output control 
system ignores the error, accepts the bad record, and resumes normal 
processing. 

If a WRITE error occurs, the declarative is executed only once for the error. 

In format 2 for an input file, the procedures are executed before and/or 
after execution of a beginning or ending input label check procedure. For an 
output file, the USE procedures are executed either before a beginning or 
ending output label is created, or after a beginning or ending output label is 
created but before it is written on tape. 

The following rules govern format 2 USE procedures: 

If file-name-1, file-name-2, etc. is specified, the associated File 
Description entry for the file must not specify LABEL RECORDS ARE 
OMITTED. 

If the words BEGINNING or ENDING are not included, the designated 
procedures are executed for both beginning and ending labels. 

If neither REEL nor FILE is included, the designated procedures are 
executed for both REEL and FILE labels. The REEL option is not 
applicable to mass storage files. 

The USE label procedures are not applicable to scratch files. The USE label 
procedure statement may be used for mass storage files even though mass 
storage file labels are maintained by MASTER and are not available to the 
user. Only the BEFORE or AFTER BEGINNING FILE or UNIT options of 
format 2 are valid. The UNIT and FILE options are synonymous. The 
input-output control system passes control to the BEFORE BEGINNING 
procedure just before the user's label identification data is moved to a 
MASTER OPEN request skeleton. The MASTER OPEN request makes the 
file available for processing, and then control passes to the AFTER BE¬ 
GINNING label procedure. 

USE BEFORE REPORTING (format 3) is used only in conjunction with the 
Report Writer. It is described in section 5.4.4 with the Report Writer 
statements. 
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4 . 7.29 

WRITE 


The WHITE statement releases a logical record from the output record area 
to the input-output control system which writes the record on an external 
device as part of an output file. 

Format 1: 


WRITE record-name f FROM identifier-1] 


< BEFORE ) 
I AFTER ( 


ADVANCING 


identifier-2 LINES 
integer LINES 
mnemonic-name 


Format 2: 

WRITE record-name [FROM identifier-1] 

; INVALID KEY imperative-statement 

Format 1 is used to process non-mass storage files. The ADVANCING option 
allows the user to specify vertical position of the printer. Format 2 is used 
to process mass storage files. INVALID KEY specifies an imperative 
statement to be executed if an attempt is made to write outside the allocated 
file area. 

An OPEN statement must be executed for a file before a WRITE statement 
for that file can be executed. 

Record name is the name of a logical record in the File Section of the Data 
Division; it must not name a sort file. After the WRITE is executed, record 
name is no longer available. 

The FROM option is used to move a record from the area in memory specified 
by identifier-1 to the output record area and simultaneously release this 
record to the input-output control system. The record is moved in accordance 
with the rules for a simple MOVE. Record name may not be the same as 
identifier-1. 

Format 1: 

When WRITE is specified for a multi-reel tape file, the following operations 
are performed after an end-of-reel condition is recognized: 
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standard ending reel label procedure and user’s ending reel label 
procedure (if specified by a USE statement) in the order specified by 
the USE statement. 

Reel swap. 

Standard beginning reel label procedure and user's beginning reel label 
procedure (if specified by a USE statement) in the order specified by the 
USE statement. 

When records are written for a teletypewriter or 211 display unit, the user 
is responsible for determining the positioning of the data. The input-output 
control system interprets the first.character of the file's record area before 
the write operation is initiated. If the first character is the internal octal 
code 36, the following action will take place before the record is displayed 
on the device: 

Device Action 

TTY Carriage return to the lefthand margin of the page. The 

first character of the record is not printed. 

CRT Clear the screen and position the entry marker to the upper 

lefthand corner of the screen. The first character of the 
record is converted to a blank character and is displayed 
as such. 

When the first character of the record is other than internal code 36, the 
record is displayed immediately following the last character written by a 
previous WRITE request. In this case, the first character is always displayed 
as presented by the WRITE request. 

The ADVANCING option allows control of the vertical positioning of each 
record on the printed page. The ADVANCING option overrides automatic 
advancing. 

Identifier-2 must be the name of a numeric elementary item described without 
any positions to the right of the assumed decimal point. The mnemonic 
name is defined in the Special-Names paragraph of the Environment Division; 
it is identified with a printer carriage control character. 

• If identifier-2 is specified, the printer page is advanced the number 
of lines contained in identifier-2. 

• If integer is specified, the printer page is advanced the number of 
lines equal to the value of integer. 

• If mnemonic-name is specified, the printer page is advanced 
according to printer carriage control rules below: 
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Control Character 

Action Before Print 

Action After Print 

A 

Space 1 

Page Eject 

B 

Space 1 

Skip to Last Line 

C 

Space 1 

Skip to Level 6 

D 

Space 1 

Skip to Level 5 

E 

Space 1 

Skip to Level 4 

F 

Space 1 

Skip to Level 3 

G 

Space 1 

Skip to Level 2 

H 

Space 1 

Skip to Level 1 

1 

Page Eject \ 


2 

Skip to Last Line 


3 

Skip to Level 6 


4 

Skip to Level 5 i 


5 

Skip to Level 4 | 

f 

6 

7 

Skip to Level 3 \ 

Skip to Level 2 / 

) No Space 

8 

Skip to Level 1 i 


0 (zero) 

Space 2 ] 

i 

+ 

No Space 

1 

- 

Space 3 

1 

(blank) 

Space 1 1 


Q 

Clear Auto Page Eject 

No Print 

R 

Select Auto Page Eject 

No Print 


When a file is assigned to PRINTER or SYSTEM-OUTPUT the first character 
(carriage control character) of the record is suppressed when the record is 
printed. 

Format 2: 

When WRITE is specified for mass storage files in the sequential access mode, 
the imperative statement in the INVALID KEY clause is executed when the end 
of the last allocated segment of the file is reached; and an attempt is made to 
execute a WRITE statement for that file. If the THRU integer-4 option of the 
FILE-LIMITS clause is specified, the file will be expanded by ten percent of 
the originally allocated area and the INVALID KEY imperative statement is 
not executed. However, if an attempt to expand the file results in the maxi¬ 
mum limit (integer-4) being reached or all scheduled mass storage being used, 
the INVALID KEY imperative statement is executed. 

When WRITE is specified for a mass storage file in random access mode, 
records are written on the file in accordance with the contents of the ACTUAL 
KEY data item. The user is responsible for setting the contents of this data 
item prior to execution of the WRITE statement (ACTUAL KEY, chapter 2). 

The imperative statement in the INVALID KEY phrase is executed when the 
contents of the ACTUAL KEY data item are out of range. 
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When an INVALID KEY condition exists, no writing takes place and the 
information in the record area remains available. 


The WRITE statement performs the function of the SEEK statement unless a 
SEEK statement for the specified record is executed prior to the WRITE. 

Examples: 

WRITE MASTER-REC. 

WRITE DETAIL OF MASTER-OUT FROM DETAIL OF WORK-AREA. 

WRITE PRINT-LINE AFTER ADVANCING 2 LINES. 

WRITE HEADER-LINE BEFORE ADVANCING LINE-NO LINES. 

WRITE ERROR-REC INVALID KEY ADD 1 TO ERR-COUNT GO TO 
ERROR-PROC. 
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REPORT WRITER 


5 


The Report Writer enables the user to specify the format of printed reports 
to be output from the COBOL program. Each report is defined in the Report 
Section of the Data Division. Once defined, the Report Writer statements in 
the Procedure Division place the report in the specified format on a user 
specified device. More than one report can be generated from a single source 
program. 

When the Report Writer is used, the Report Section must be included as the 
last section of the Data Division, and File Description entries (FD) in the 
File Section must contain the names of the reports to be output. 


5.1 

GENERAL 

DESCRIPTION A report is a pictorial presentation of data. In preparing a report, the 

format id differentiated from the content. The format must be planned in 
terms of page width and length, organization of report items on the page, 
and the hardware device on which the report is to be written. 

Two types of entries are required for each report: the report description 
entry (RD level) which describes the physical aspects of the report format 
and the report group description entry (01 level) which describes the char¬ 
acteristics of the items included in the report and their relation to the 
report format. 

The Report Description (RD level) specifies the overall format; characteris¬ 
tics of the page are outlined; limits are prescribed for the page and for 
footings, headings, and detail information. This entry also specifies data 
items that act as print control factors. Each report associated with an output 
file must be defined in an RD entry. 

Each report must contain at least one report group. A report group is a set 
of one or more data items which is always presented as a single unit regard¬ 
less of format. It may consist of one or more report lines. The report 
group always has an 01 level number; but it may contain lower level group 
and/or elementary items with level numbers from 2-49. Each report group 
at the 01 level must have a TYPE clause which specifies the type of the 
report group: heading, footing, or detail. A data name identif 5 dng the 
report group is optional. However, it must be specified for any report group 
referenced by GENERATE or USE statements in the Procedure Division. 

The placement of an item in relation to the report group and of the report 


60229400 


5-1 



5 . 1.1 

CONTROL GROUPS/ 
CONTROL BREAKS 


5 . 1.2 

PAGE BREAK 


group in relation to the entire report, the format description of all items, 
and any control factors associated with the report group are defined by this 
entry. 


Summary information can be presented within the body of a report. The 
concept of a control hierarchy makes it possible to automatically produce 
required summary information together with any heading, detail, and foot¬ 
ing information in a control group. Control items are specified in the report 
description entry in the same order as the control hierarchy. Any change in 
the contents of a control item produces a control break. Changes are recog¬ 
nized between executions of GENERATE statements and they set in motion 
the automatic production of control footing and heading report groups asso¬ 
ciated with the item. A control group is the set of control heading, control 
footing, and detail report groups associated with a given control data name. 
Within the control hierarchy, lower level heading and/or footing report 
groups are included in the higher level control group. 


A page break occurs whenever the LINE-COUNTER is changed, by a LINE 
NUMBER clause or a NEXT GROUP clause, to a line number that is not 
currently available to the user. A line number may not be available to the 
user under the following two conditions; 

• Relative spacing exceeds the PAGE LIMIT clause specification 

• Absolute spacing references a number that is equal to or less 
than the current line number 


XX cxic? cLUKjy/izj iL/xc;cLi\. ox/iitxxxxuixo cxx c; ctt ux/jov;!' xxxvjrlL xiilfrxxy~ 

ING and PAGE FOOTING report groups are produced if appropriate. The 
page coimter associated with the fixed data name PAGE-COUNTER is incre¬ 
mented by one each time a page break occurs. It is incremented after the 
page footing is produced and before the page heading on the next page, 
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5 . 1.3 

LINE-COUNTER The fixed data name, LINE-COUNTER is generated automatically by the 

Report Writer for each report, LINE-COUNTER determines when a page 
heading and/or footing report group is to be presented and controls vertical 
spacing of information on the page. It is a numeric item, and its size is 
based on the number of lines per page specified in the PAGE LIMIT clause. 

Initially, the line counter is set to zero by the Report Writer. It is auto¬ 
matically tested and incremented during execution according to the PAGE 
LIMIT clause and the values specified by the LINE NUMBER and NEXT 
GROUP clauses in a report group description. The value of LINE-COUNTER 
may be incremented with relative spacing, or it may be replaced with absolute 
spacing. If relative spacing advances the line counter beyond the limits de¬ 
fined in the PAGE LIMIT clause, PAGE FOOTING is presented if appropriate 
and the line counter is reset to zero (top-of-form). No additional setting is 
made to the line counter based on the relative line specification. If absolute 
spacing causes the line counter to be less than or equal to the current line 
number, the line counter is set to the requested absolute line number follow¬ 
ing the generation of PAGE-FOOTING and PAGE-HEADING groups. 

LINE-COUNTER may be referred to by Procedure Division statements; 
however, if it is changed by a Procedure Division statement, page format 
control may be unpredictable. If more than one line counter exists because 
more than one Report Description entry is specified, LINE-COUNTER must 
be qualified by a report name when it is referenced by a Procedure Division 
statement. 

The value of LINE-COUNTER during execution represents: 

• Last line munber of previous report group 

• Last line number skipped by a previous NEXT GROUP specification 

• Zero, if at top of page 
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5 . 1.4 

PAGE-COUNTER 


5.2 

DATA DIVISION 
ENTRY FORMATS 


PAGE-COUNTEE is a fixed data name automatically generated by the Report 
Writer as a data item to number the pages within a report. One numeric 
page counter is supplied for each report. The size of the counter is specified 
by the PICTURE clause associated with the first elementary data item that 
uses PAGE-COUNTER as a source. If PAGE-COUNTER is given as a source 
in more than one item , each PICTURE clause must specify the identical num¬ 
ber of numeric characters. The size must be sufficient to prevent overflow, 

PAGE-COUNTER may be referenced from the Procedure Division. If more 
than one Report Description entry exists, PAGE-COUNTER must be qualified 
by the report name when referenced. It must not be qualified when used as 
a source in the Data Division. 

The page counter is automatically preset to one by the Report Writer. If a 
starting value greater than one is desired, the contents of the page counter 
can be changed with a Procedure Division statement following the INITIATE 
statement. 

The page counter is automatically incremented by one each time a page break 
occurs. It is incremented after page footing and before a page heading is 
generated. 


Format specifications used in the Report Writer are defined in this section. 
Each report must be named in the File Section and described in the Report 
Section of the Data Division. Statements which generate a report are speci¬ 
fied in the Procedure Division. 
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5 . 2.1 

FILE DESCRIPTION 
ENTRY 


The File Description furnishes information concerning the physical structure, 
identification, and record names of a given file. 


FD file-name 

; BLOCK CONTAINS [integer-1 TO] integer-2 


j RECORDS 
(CHARACTERS 


; RECORD CONTAINS [integer-3 TO] integer-4 CHARACTERS 

DEPENDING ON ^ 

< RECORD-MARK 


; LABEL 


VALUE OF 


i RECORD IS 
RECORDS ARE 


( STANDARD 1 
OMITTED 


( 


data-name 


-J 


I uatE—uame-o 

1 label-field 


-o i I Uctta-Uctxiie-^ i 

-1 / — t literal-1 j 


( data-name-5 I 
t label-field-2 ] — 


( data-name-6 
t literal-2 


}' 


; DATA 


j RECORD IS ( 
( RECORDS AREj 


data-name-7 [, data-name-8] 


\ REPORT IS ( 

’ i REPORTS are! report-name-1 [, report-name-21 .. 


The level indicator FD identifies the file description entry; it must precede 
the file name. All semicolons are optional, but the entry must be terminated 
by a period. 

Clauses which follow the file name are optional in many cases, and their 
order of appearance is immaterial. See section 3 for a discussion of the 
BLOCK, RECORD, LABEL, VALUE OF, and DATA clauses. 

If the RECORD CONTAINS or DATA RECORD clauses are not specified, a 
record area 136 characters long is automatically assigned to the file. 
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5 . 2.2 

REPORT 

DESCRIPTION 


The BE PORT clause cross references the report description entries with 
associated file description entries: 


j REPORT IS ( 
j REPORTS ARE) 


report-name-1 [, report-name-2]. .. 


The REPORT clause is required in the file description entry if the file is 
an output report or if it is to contain output report records. Each report 
name listed in the FD entry must be the subject of a report description 
(RD) entry in the Report Section. The presence of more than one report 
name indicates that the file contains more than one report. These reports 
need not have the same description and the order in which they are listed 
is not significant. 


ENTRY The Report Description defines the physical structure and identification of 
a named report. 

Format 1: 


RD re port-name-1 [WITH CODE mnemonic-name] COPY library-name. 

This format is used only when the complete RD entry is contained in the 
COBOL library. 

Format 2: 


RD report-name-2 [WITH CODE mnemonic-name-2] 


J CONTROL IS ) 
f CONTROLS ARe( 


FINAL y 

identHier-l [identifier-2] i 

FINAL identifier-1 [identifier-2] .,, j 


; PAGE 


LIMIT IS / . ^ , \ LINE / 

LIMITS ARE [ integer j | 


[ HEADING integer-2 ] 
[ FIRST DETAIL integer-S] 
[ LAST DETAIL integer-4 ] 
f FOOTING integer-5] 


The level indicator RD which identifies the Report Description must precede 
the report name. The report name must appear in a REPORT clause of an 
FD entry. All semicolons are optional in the Report Description but the 
entry must be terminated by a period. 
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5 . 2.3 

REPORT GROUP 
DESCRIPTION ENTRY 


Clauses which follow the report name are optional in many cases. Except 
in format 1, the order of their appearance is immaterial. 

The fixed data names, LINE-COUNTER, and PAGE-COUNTER are auto¬ 
matically generated by the Report Writer based on the presence of specific 
entries; they are not data clauses. 


The report group description entry specifies the characteristics of a particular 
report group and of the individual items within a report group. All semicolons 
are optional in the report group description but the entry must be terminated 
by a period, A report group must have a data-name if it is referred to by a 
Procedure Division statement. 

Format 1: 

01 [data-name-1] 


; LINE NUMBER IS 


integer-1 
PLUS integer-2 
NEXT PAGE 


; NEXT GROUP IS 


integer-3 
PLUS integer-4 
NEXT PAGE 


TYPE IS 


( REPORT HEADING ) 

{ RH / 

( PAGE HEADING ) 

( CONTROL HEADING } (identifier-1 
( CH / ( FINAL 

( DETAIL ) 

1 de j 

( CONTROL FOOTING ) (identifier-2 
I CF / ( FINAL 

( PAGE FOOTING ) 

\ PF / 

( REPORT FOOTING ) 

\ XM. } 


[; USAGE IS DISPLAY ]. 
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Format 1 indicates a report group; the report group extends from this entry 
to the next report group (level 01) entry. The TYPE clause is required for 
every report group to indicate whether the group is a heading, detail, or 
footing group. If a control heading or control footing group is specified, 
TYPE also indicates the control item which will cause these groups to be 
generated. 


Format 2; 

nn [data-name-1] 


[; COLUMN NUMBER IS integer-1] 

[; GROUP INDICATE] 

~ j JUST ) 

’ j JUSTIFIED ( RIGHT 


{ integer-2 
PLUS integer-3 
NEXT PAGE 


PIC 

PICTURE 


IS character-string 


; RESET ON 


\ identtfier-l 


I FINAL 
[; BLANK WHEN ZERO ] 


; SOURCE IS identifier-2 
; SUM identifier-3 [, identifier-4] ... 
; VALUE IS literal-1 


[; USAGE IS DISPLAY ] . 


[UPON data-name- 



Format 2 indicates an elementary item or group item within a report group. 

If a report group consists of only one elementary entry, format 2 may include 
TYPE and NEXT GROUP clauses to specify the report group and elementary 
item in the same entry. In this case, the level number must be 01. Other¬ 
wise, the level numbers in format 2 are in the range 02 to 49. Elementary 
item descriptions are written (left to right) in the order in which they will 
appear on the printed page. The position of a report group within a report 
is determined by the TYPE clause. 


5-8 


60229400 



5.3 

DATA DIVISION 
CLAUSES 


5 . 3.1 

CODE 


See section 3 for a discussion of the JUSTIFIED, PICTUEE, BLANK WHEN 
ZEEO, and USAGE clauses. The remaining clauses in the report descrip¬ 
tion entry and the report group description entry are described in the follow¬ 
ing pages; they appear in alphabetic order. 


The CODE clause defines a unique character to be affixed to each report line 
produced in this report. 

WITH CODE mnemonic-name-1 

The CODE clause, when used in formal 1 of the ED entry, must follow 
immediately after the report name. 

CODE mnemonic-name-1 indicates a unique character which is automatically 
prefixed to and identifies each report line produced. Multiple reports may 
then be produced simultaneously onto one output device for later individual 
report selection. The mnemonic name must appear in the Special-Names 
Paragraph of the Environment Division. 
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5 . 3.2 

COLUMN NUMBER This clause indicates the absolute column number on the printed page of the 
high-order (leftmost) character of the elementary item. Integer-1 must be 
positive. 

COLUMN NUMBER IS integer-1 

The COLUMN NUMBER clause can be given only at the elementary level 
within a report group. For a particular line, COLUMN NUMBER entries 
are presented in the order, from left to right, in which the items will 
appear on the page. 

The COLUMN NUMBER clause must be specified if this elementary item is 
to be presented. If the column number is not indicated, the elementary item, 
though included in the description of the report group, is suppressed when 
the report group is produced. When COLUMN NUMBER is specified, the 
PICTURE clause and one of the clauses, SOURCE, SUM, or VALUE must 
be included in the item description. 

Example: 

01 DETAIL-LINE 

TYPE DETAIL LINE PLUS 01. 

03 COLUMN 02 PICTURE X(10) SOURCE IS PROG-NAME. 

03 COLUMN 13 PICTURE ZZZZ9 SOURCE IS COBOL-LINES. 

03 COLUMN 20 PICTURE ZZZZ9 SOURCE IS GMAP-LINES. 

03 COLUMN 27 PICTURE Z9. 99 SOURCE IS G-RATIO. 

03 COLUMN 34 PICTURE Z(5)9 SOURCE IS O-LINES. 

03 COLUMN 42 PICTURE ZZZ9.99 SOURCE IS O-RATIO. 
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5 . 3.3 

CONTROL 


The CONTEOL clause specifies the identifiers which provide control breaks 
for this report. Whenever the value contained in these identifiers changes, 
a control break occurs. The control hierarchy is defined by the order of 
the control breaks. This clause is included in the report description (ED) 
entry for an entire report. 


jCONTEOL IS } 
jcONTEOLS AE e( 


FINAL 

identiEier-1 identifier-2] . .. 

FINAL , identifier-1 identifier-2] ... 


The CONTEOL clause is required when control heading or control footing 
report groups are specified. 

The identifiers are listed in order froni major to minor; FINAL is the highest 
control, identifier-1 is the major control, identifier-2 is the intermediate 
control, etc. The last identifier specified is the minor control. The idenfi- 
fiers must be defined in the File, Common-Storage or Working-Storage 
Section of the Data Division. 

The identifiers specified in the CONTEOL clause are the only Identifiers 
referred toby the EESET and TYPE clauses in a report group description 
entry for this report. This clause is optional, but must be included when 
the TYPE clause specifies control headings or footings or when EESET is 
specified. Control headings and footings are printed automatically whenever 
the value of an identifier specified in this clause chaises. The final control 
heading is printed before any other control headings when the first GE NEE ATE 
is executed, and final control footing is printed when the TEEMINATE state¬ 
ment is executed. 

Example: 

ED EEPOET-A 

CONTEOLS AEE FINAL, DEPT-NO, SECT-NO 


During the generation of EEPOET-A, the control headings and footings 
associated with SECT-NO are produced when the contents of the data item 
called SECT-NO changes. The control headings and footings associated with 
DEPT-NO are produced in addition to those associated with SECT-NO when 
the contents of DEPT-NO changes. The final control heading, in addition to 
all lower level control headings, is produced when the first GENEEATE 
statement is executed for this report, the final footing follows all other con¬ 
trol footings when the TEEMINATE statement is executed. 
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5 . 3.4 

GROUP INDICATE 


This clause specifies that its associated elementary item is to be presented 
only once on the first occurrence of the item following a control break or at 
the beginning of a new page. 


GEOUP INDICATE 

GEOUP INDICATE must be given only at the elementary item level within a 
TYPE DETAIL report group. 

An elementary item is group indicated in the first DETAIL report group 
containing the item after a control break. It is also group indicated in the 
first DETAIL report group containing the item on a new page, even if a con¬ 
trol break did not occur. 

Example: 

01 DETAIL-ITEM TYPE DETAIL LINE PLUS 1. 

02 DEPT PICTUEE X COLUMN 20 SGUECE DEPT-NO 
GEOUP INDICATE. 

02 SECT PICTUEE X(3) COLUMN 30 SOUECE SECT-NO 
GEOUP INDICATE. 

02 GEP-NO PICTURE X(3) COLUMN 40 SOURCE GROUP-NO. 

02 AMOUNT PICTURE 9(5) COLUMN 45 SOURCE AMNT-NO. 


In the above detail report group, the items called DEPT and SECT will be 
printed only the first time the detail group appears on a page or when a 
control break occurs. The other items in the group will be printed each 
time the detail group is printed. 
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5 . 3.5 

LINE NUMBER This clause indicates the absolute or relative line number of the entry in 

reference to the page or the previous entry. 

{ integer-l \ 

PLUS integer-2 \ 

\ NEXT PAGE ; 

Integer-1 and integer-2 are positive integers. Integer-1 must be within the 
range specified by the PAGE LIMITS clause in the report description entry. 

The LINE NUMBEE clause must be given for each report line of a report 
group. For the first line of a report group it is given at the report group 
level; it may also be given before or at the first elementary item in the 
line. For report lines other than the first in a report group, it must be 
given before or at the first elementary item in the line. 

If the LINE NUMBER clause is specified at the report group level, entries 
for the first report line within the report group are presented on the speci¬ 
fied line number. If LINE NUMBER is specified for an entry at a subordinate 
level, all succeeding printable items are presented on that print line, until 
another LINE NUMBEE clause is declared or the report group ends. Print¬ 
able items are those elementary items which have descriptions containing 
the COLUMN NUMBER clause. A line number for the first subordinate level 
may not contradict the line number of its group level. 

Integer-1 indicates an absolute line number. The line counter is set to this 
value in this and follovdng entries within the report group until a different 
value for LINE NUMBER is specified. 

PLUS integer-2 indicates a relative line number which increments the line 
counter in this and following entries within the report group until a different 
value for LINE NUMBER is specified. 

Within a report group, absolute LINE NUMBER entries must be indicated in 
ascending order, and an absolute LINE NUMBER cannot be preceded by a 
relative LINE NUMBER. 
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The NEXT PAGE phrase indicates an automatic skip to the next page before 
presenting the first line of the current report group. Appropriate page 
footings and page headings will be produced as specified. NEXT PAGE may 
not be specified for page heading or page footing report groups. 

Examples: 

1 . 01 GROUP-A TYPE DETAIL LINE IS NEXT PAGE. 

03 PART-1 LINE 01. . . 

03 PART-2 LINE PLUS 01 . . . 

Each detail report group starts on a new page; the first entry in the 
group is on the first line, the second on the next line. 

2. 01 TYPE RH LINE IS 1 ... 

NEXT GROUP IS PLUS 2. 

01 TYPE DE LINE PLUS 1 . . , 

01 TYPE CF DATA-LIST LINE PLUS 2 . . . 


The report heading group is printed on line 1; 3 lines are skipped before 
the first detail group is printed, each subsequent detail line is printed 
on the next line; 2 lines are skipped before the control footing group is 
printed. 
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5 . 3.6 

NEXT GROUP 


The NEXT GEOUP clause specifies the spacing between the last line of the 
report group and the next report group to be generated. 


/ integer-1 

NEXT GROUP IS^ PLUS integer-2 
1 NEXT PAGE 


The NEXT GROUP clause must appear only at the 01 level which defines the 
report group. 

Integer-1 and integer-2 are positive, and integer-1 cannot exceed the maxi¬ 
mum number of lines specified per report page. Integer-1 indicates an 
absolute line number which sets the line counter to this value after producing 
the last line of the current report group. 


PLUS integer-2 specifies a relative line number which increments the line 
counter by the integer-2 value, Integer-2 represents the number of lines 
skipped following the last line of the current report group. Further spacing 

4-1, ^ T TATTT* XTTTTl/rT>T7» T> __ __ L _-.U. __3_.1 

lo uy tilt? xjiiNUi i\ui\LJD£Ltn ulctucst; ui tut? iit?At itjpurt ^I'uup jjruuuutju. 


The NEXT PAGE phrase indicates an automatic skip to the next page following 
the last line of the current report group. Page heading and page footing report 
groups are produced as specified. When specified for a control footing or 
heading report group, NEXT GEOUP results in automatic line spacing only 
when a control break occurs on the level for which the control footing or 
heading is specified, NEXT PAGE is illegal in page heading and page footing 
report groups. 

Example: 


01 DETAIL-LINE 
TYPE DETAIL 
LINE PLUS 01. .. 
NEXT GROUP PLUS 3. 


DETAIL-LINE is printed on the line followii^ the preceding group; and 
DETAIL-LINE will be followed by three blank lines before the next 
group is printed. 
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5 . 3.7 

PAGE LIMIT 


This clause indicates the specific line control to be maintained within the 
logical presentation of a page. PAGE LIMIT is required when page format 
is to be controlled by the Report Writer; it may be omitted when no associa¬ 
tion is necessary between report groups and the physical format of the report 
page. If PAGE LIMIT is omitted, absolute LINE NUMBER and absolute 
NEXT GROUP clauses must also be omitted. 


Only one PAGE LIMIT clause can be specified for each RD entry. 


PAGE 


LIMIT IS f 
LIMITS AREj 


integer-1 


) LINE j 
j LINES j 


[, HEADING integer-2] 


[, FIRST DETAIL integer-3] I LAST DETAIL integer-4] 


[, FOOTING integer-5] 


Integer-1 through integer-5 must be positive. Integer-2 through integer-5 
each must be less than or equal to integer-1. 


Integer-1 is required to specify the depth of the report page; it need not be 
equal to the physical perforated continuous form often associated in a report 
with the page lei^h.t The size of the fixed data name, LINE-COUNTER, is 
based on the integer-1 LINES specification. It is the maximum numeric 
size required to prevent overflow. 

If absolute line spacing is indicated for all report groups, integer-1 must be 
specified, and none of the integer-2 through integer-5 controls need be 
specified. 


If relative spacing is indicated for individual type detail report group entries, 
the following must be specified: 

Integer-3 if a page heading is present 
Integer-4 if a control heading is present 
Integer-5 if a page footing is present 

HEADING integer-2: First line number of first heading report group. No 
report group will start before integer-2. 

FIRST DETAIL integer-3: First line number of first normal (detail or con¬ 
trol) report group. No detail or control report group will start before 
integer-3. 


t The only carriage control tape requirement is that the TOP-OF-FORM punch 
must be equal to LINE 0 of the report. 
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LAST DETAIL integer-4; Last line number of last normal (detail or control) 
report group. No detail or control heading report group will extend beyond 
integer-4. 

FOOTING integer-5: Last line number of last control footing report group. 
No control footing report group will start before integer-3 nor extend beyond 
integer-5. Page footing report groups follow integer-5. 

When relative line numbers are specified for report groups, PAGE LIMITS 
integer-1 is specified and some or all of HEADING, FIBST DETAIL, LAST 
DETAIL, and FOOTING, clauses are omitted, the following implicit control 
is assumed for the omitted specifications: 


If HEADING integer-2 is omitted, integer-2 is considered equivalent to 
the value 1, that is, LINE NUMBER one. 

If FIRST DETAIL integer-3 is omitted, integer-3 is considered equivalent 
to the value of integer-2. 

If LAST DETAIL integer-4 is omitted, integer-4 is considered equivalent 
to the value of integer-5. 

If FOOTING integer-5 is omitted, integer-5 is considered to be equivalent 
to the value of integer-4. If both LAST DETAIL integer-4 and FOOTING 
integer-5 are omitted, both are considered to be equivalent to the value 
of integer-1. 

The following chart represents the limits of page format when all options of 
the PAGE LIMIT clause are specified; 


Report 

Heading/ 

Footing 


Page 

Heading 


Detail & 

Control 

Heading 


Control 

Footing 


, Page 
Footing 


integer-2 
integer-3 
integer-4 
integer-5 
integer-1 



i 
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Absolute LINE NUMBEB or absolute NEXT GEOUP spacing must be consistent 
with controls specified in the PAGE LIMIT clause. 

Examples: 

1. REPORT SECTION. 

RD RATIO-REPORT 

PAGE LIMIT IS 55 LINES. 

In this example, an absolute page limit is indicated. 


2. REPORT SECTION. 

RD REPORT-A 

CONTROLS ARE FINAL, DEPT-NO, SECT-NO 

PAGE LIMIT IS 60 LINES 

HEADING 1 

FIRST DETAIL 10 

LAST DETAIL 55 

FOOTING 60. 


In this example, automatic line control of heading, footing, and detail groups 
within the report page are indicated. 
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5.3.8 

RESET The RESET clause is used in an elementary item description in a control 

footing report group to override the automatic resetting of the sum counter 
following the associated control break. 

KESETON|““ff“-^i 

- j FINAL I 

RESET can be used only at the elementary level in conjunction with the SUM 
clause (see SUM clause description), Identifier-1 must be one of the identi¬ 
fiers specified in the CONTROL clause of the RD entry for the report. It 
must be a higher level identifier than the control identifier associated with 
the control footing or detail report group containing the RESET clause. 

When RESET is not specified, the sum counters associated wdth the report 
group by the SUM clause are automatically reset to zero after the control 
footing or the detail report group is presented. RESET prevents the auto¬ 
matic resetting of the sum counters until the control footing or detail report 
group associated with identifier-1 has been presented. This clause, therefore, 
permits progressive totaling of data while presenting subtotals at lower levels 
of control. 

RESET FINAL indicates that the counter is not to be reset until the final con¬ 
trol footing or detail report group has been generated. With this option cumu¬ 
lative totals are presented throughout the report. 

Example: 

RD REPORT-A 

CONTROLS ARE FINAL, DEPT, SECT, GROUP, MAN. 

01 GROUP-TOTALS TYPE IS CONTROL FOOTING GROUP 
LINE NUMBER IS PLUS 2. 

03 COLUMN 30 PICTURE 9(10) 

SUM GRP-HRS RESET ON SECT. 


GRP-HRS are summed for this control footing group and the subtotal is 
incremented and presented with each group total until there is a control 
break at the SECT level of the control hierarchy. The subtotal is added to 
the sum at the SECT level and then reset to zero before the SECT control 
footing report group is presented. 
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5 . 3.9 

SOURCE - SUM - VALUE The SOUECE, SUM, or VALUE clauses define the purpose of an elementary 
item within the report group; only one clause is included in the description 
of any one item, and it must only appear at the elementary level, 

/ ; SOURCE IS identifier-1 \ 

/ ; SUM identifier-2 [, identifier-3] ... [ UPON data-name-1] I 
(; VALUE IS literal-1 ) 

The identifiers must identify an item in the File, Working-Storage, or 
Common-Storage Sections; a sum counter in the Report Section; or one of 
the special registers; SYSTEM-DATE, or SYSTEM-TIME, The literal in 
the VALUE clause may be numeric, non-numeric, or a figurative constant. 
Data-name-1 is the name of a detail report group; it may be qualified by 
report name if the name is used in more than one report description. SOURCE 
and SUM are described below; VALUE is described in chapter 3. 

The SOURCE clause indicates a data item used as a source for the report 
item. PICTURE must also be specified in the entry for the report item. The 
value of identifier-1 at object time is effectively moved to the report item and 
presented according to the PICTURE specified in the report item description. 
The fixed data items LINE-COUNTER or PAGE-COUNTER may be specified 
as identifier-1; in this case the current value of the line counter or the page 
counter is the source. 

Examples: 

1. 01 DETAIL-ITEM TYPE DETAIL LINE PLUS 1. 

02 DEPT PIC X COLUMN 70 SOURCE IS DEPT-NO. 


In this example, DEPT-NO is the name of a data item in the File, Working- 
Storage, or Common-;a;orage Section. 

2. 01 TYPE IS PAGE HEADING LINE PLUS 02. 

02 COLUMN 110 PIC X(4) VALUE IS "PAGE”. 

02 COLUMN 115 PIC 999 SOURCE IS PAGE-COUNTER. 
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The SUM clause indicates values to be accumulated when a control break 
occurs at object time. It may appear only in a control footing or a detail 
report group at the elementary level. Any item containing a SUM clause 
generates a numeric counter used for summing the operands specified by 
the identifiers following the word SUM, This summation counter can be 
referenced by specifying the data name of the item containing the SUM clause, 
If a summation counter is never referenced, a data name need not be included 
in the entry containing SUM, A PICTUEE clause must always be included in 
an entry containing a SUM clause. Editing characters or editing clauses may 
be included but editing occurs only upon presentation of the summation counter 
in the report. At all other times the summation counter is treated as a num¬ 
eric data item. The PICTUEE must specify a size large enough to accommo¬ 
date the summed quantity without truncation of integral digits. 

Each item being summed (identifier-3, identifier-4, etc,) must appear as the 
object of a SOUECE clause in a detail report group, name an entry containing 
a SUM clause in a control footing report group at an equal or lower position 
in the control hierarchy, or name an entry containing a SUM clause in a detail 
report group of the lowest level of the control hierarchy. The items being 
summed must be explicitly included in a detail report group, but they may be 
suppressed at presentation time. 

The summation of data items defined as summation counters in control footing 
or detail report groups is accomplished explicitly or implicitly by the Eeport 
Writer. A summation counter is algebraically incremented just before the 
detail report group which contains the data items being summed is presented. 

The items being summed (identifier-3, identifier-4, etc.) are added to the 
summation counter at each execution of a GENEEATE statement. This 
statement generates a detail report group that contains the SUM operands 
at the elementary level. Summing is done according to the rules for ADD 
in the Procedure Division (section 4.7.2). 
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If the sum of a data item is to be presented at a higher level of the control 
hierarchy, the lower level SUM specification may be omitted. If higher level 
report groups are indicated in the control heirarchy, counter updating pro¬ 
cedures take place prior to the reset operation. Unless EESET is specified, 
each summation counter at the level just produced is reset to zero. 

The UPON data-name-1 option provides selective summation when a particular 
data item is named in the SOUECE clause of two or more detail report groups. 
Identifier-3, identifier-4, etc., must be named in a SOUECE clause in the 
detail report group identified by data-name-2. 

Example: 

01 TYPE IS CONTEOL FOOTING SECT-NO LINE PLUS 2. 

02 COLUMN 20 PICTUEE X(10) VALUE IS "SEC TOTAL". 

02 COLUMN 30 PICTUEE ZZZ, ZZZ. 99 SUM AMNT-NO. 


If AMNT-NO is the object of a SOUECE clause in a detail report group, 
each time the detail group is presented the contents of AMNT-NO will 
be added to the summation counter associated with AMNT-NO. The 
contents of this counter will be presented when the control footing report 
group is presented. 
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5 « 3 » 10 
TYPE 


This clause specifies the particular type of report group that is described 
by this entry and indicates the time at which the report group is to be gen¬ 
erated. It must appear in an 01 level entry. 


TYPE IS 


REPORT HEADING ) 

RH } 

( PAGE HEADING ) 

\m f 

( CONTROL HEADING ] (identifier-n 


n FINAL 


t CH 

( DETAIL 

j pE / 

( CONTROL FOOTING ) J identifier-n) 
\CF f t FINAL j 

f PAGE FOOTING I 
1PF f 


\{ 


REPORT FOOTING 
RF 



The level number 01 identifies the particular report group to be generated 
as output. The TYPE clause indicates the time for generating this report 
group. A report group described as other than DETAIL is automatically 
generated by the Report Writer, If the report group is described as DETAIL, 
the Procedure Division statement, GENERATE identifier, directs the Report 
Writer to produce the named report group. 

The REPORT HEADING or RH entry indicates a report group that is produced 
only once at the beginning of a report during execution of the first GENERATE 
statement. Only one report group of this type can appear in a report. Nothing 
may precede a REPORT HEADING entry in a report. SOURCE clauses used 
in TYPE RH report groups refer to the values of data items at the time the 
first GENERATE statement is executed. 

The PAGE HEADING or PH entry indicates a report group produced at the 
beginning of each page according to page condition rules. Only one report 
group of this type can appear in a report. 

The CONTROL HEADING or CH entry indicates a report group produced at 
the beginning of a control group for a designated identifier, CH FINAL 
indicates a report group produced once before the first control group at the 
initiation of a report during execution of the first GENERATE statement. 

Only one report group of this type can appear for each identifier and for the 
FINAL specified in a report. To produce CONTROL HEADING report groups, 
a control break must occur (see section 5,1.1). SOURCE clauses used in 
TYPE CONTROL HEADING FINAL report groups refer to the values of the 
items at the time the first GENERATE statement is executed. 
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The DETAIL or DE entry indicates a report group produced for each GENERATE 
statement in the Procedure Division. Each DETAIL report group must have a 
unique data name at the 01 level in a report. 

The CONTROL FOOTING or CF entry indicates a report group produced at the 
end of a control group for a designated identifier or produced once at the ter¬ 
mination of a report ending a FINAL control group. Only one report group of 
this type can appear for each identifier and for the FINAL specified in a report. 
To produce any CONTROL FOOTING report groups, a control break must occur, 

SOURCE clauses in TYPE CONTROL FOOTING FINAL report groups refer to 
the values of the items at the time the TERMINATE statement is executed. 

The PAGE FOOTING or PF entry indicates a report group produced at the 
bottom of each page. Only one report group of this type can appear in a 
report. 

The REPORT FOOTING or RF entry indicates a report group produced only 
once at the termination of a report. Only one report group of this type can 
be used in a report. Nothing may follow a REPORT FOOTING entry in a 
report, SOURCE clauses in REPORT FOOTING report groups refer to the 
value of items at the time the TERMINATE statement is executed. 


CONTROL HEADING report groups appear with the current values of any 
indicated SOURCE data items before the DETAIL report groups of the control 
group are produced. CONTROL FOOTING report groups appear with the pre¬ 
vious values of any indicated SOURCE data items just after the DETAIL report 
groups of that control group have been produced. These report groups appear 
when a control break is noted. LINE NUMBER determines the absolute or 
relative position of the CONTROL report groups exclusive of the other HEAD¬ 
ING and FOOTING report groups. 


Identifier-n, as well as FINAL, must be one of the identifiers described in 
tile CONTROL clause of the RD entry. A FINAL control break may be des¬ 
ignated only once for CONTROL HEADING or CONTROL FOOTING entries 
within a report. 
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HEADING and FOOTING report groups occur in the following sequence if all 
exist for a given report: 

RE POET HEADING (one occurence only) 

PAGE HEADING 

CONTROL HEADING 
DETAIL 

CONTROL FOOTING 

PAGE FOOTING 

REPORT FOOTING (one occurrence only) 

CONTROL HEADING repjort groups are presented in the following order: 

Final Control Heading 
Major Control Heading 

Minor Control Heading 

CONTROL FOOTING report groups are presented in the following order: 

Minor Control Footing 

Major Control Footing 
Final Control Footing 
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5.4 

PROCEDURE 

DIVISION 

STATEMENTS 


5 . 4.1 

GENERATE 


The GENERATE statement links the Procedure Division to the Report Writer 
as described in the Report Section of the Data Division. 

GENERATE identifier 

Identifier represents a detail report group or an RD entry. 

If identifier is the name of a detail report group, the GENERATE statement 
produces all the automatic operations within a Report Writer and produces 
an output detail report group on the output device. This procedure is called 
detail reporting. 

If identifier is the name of an RD entry, the GENERATE statement produces 
all the automatic operations of the Report Writer and updates the footing re¬ 
port groups within a particular report description without actually producing 
a detail report group associated with the report. In this case, all summation 
counters associated with the report description are algebraically incremented. 
This procedure is called summary reporting. If more than one detail report 
group is specified in a report defined by the RD entry, all summation counters 
are algebraically incremented each time a GENERATE statement is executed. 

A GENERATE statement, implicitly in both detail and summary reporting, 
produces the following automatic operations: 

• Recognizes specified control breaks to produce control footing and 
control heading report groups 

• Accumulates into the summation counters all specified identifiers 

• Executes specified routines defined by a USE statement before 
generating associated report groups (See USE, section 5.4.4) 

• Steps and tests the line counter and page counter to produce page 
footing and page heading report groups 

• Creates and prints the print line image 

• Resets the summation counters unless suppressed by the RESET 
clause 


5-26 


60229400 



60229400 


During execution of the first GENERATE statement, report groups are produced 
in the following order: 

REPORT HEADING report group 
PAGE HEADING report group 

all CONTROL HEADING report groups in the order FINAL, major to minor 
DETAIL report group, if specified in the GENERATE statement 

If a control break is recognized when any GENERATE statement after the first 
is executed, all specified control footing report groups are produced from the 
minor report group up to and including the report group specified for the identi¬ 
fier which caused the control break. Then, all specified control heading report 
groups from the report group specified for the identifier that caused the control 
break down to the minor report group, are produced in that order. The detail 
report group specified in the generate statement is then produced. 

Data is moved to the data item in the report group description entry of the 
Report Section, and it is edited under control of the Report Writer according 
to the same rules for movement and editing as described for MOVE. 
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5 . 4.2 

INITIATE 


INITIATE 


Report processing begins with the INITIATE statement, 

INITIATE report-name-1 [, report-name-2]. .. 

Each report name must be defined by a report description entry in the Report 
Section of the Data Division, 

The INITIATE statement resets all data name entries that contain SUM clauses 
associated with the report; and it sets up the Report Writer controls for all 
report groups associated with this report. 

If PAGE-COUNTER is specified, it is set to one before or during execution 
of the INITIATE statement. If the starting value is to be other than one, the 
user may reset this counter following the INITIATE statement. 

If LINE-COUNTER is specified, it is set to zero before or during the execu¬ 
tion of INITIATE. 

The INITIATE statement performs Report Writer functions for individually 
described report programs analogous to the input-output functions that the 
OPEN statement performs for individually described files. 

A second INITIATE statement for a particular report name may not be executed 
unless aninterveningTERMINATE statement has been executed for that report 
name. 


5-28 


60229400 



5 . 4.3 

TERMINATE 


Report processing is completed by the TERMINATE statement. 

TERMINATE report-name-1 [, report-name-2],,. 

Each report name must be defined by an RD entry in the Data Division, 

The TERMINATE statement produces all control footings associated with this 
report as if a control break had just occurred at the highest level; and it com¬ 
pletes the Report Writer functions for the named reports. TERMINATE also 
produces the last page and report footing report groups associated with this 
report. Page heading or page footing report groups are prepared in order 
for the report description, 

A second TERIMINATE statement for a particular report may not be executed 
unless an intervening INITIATE statement has been executed for the report 
name. 

The TERMINATE statement performs Report Writer functions for individually 
described report programs analogous to the input-output functions that the 
CLOSE statement performs for individually described files, TERMINATE 
does not close the file with which the report is associated; a CLOSE statement 
for the file must be given by the user, 

SOURCE clauses used in final control footing or report footing report groups 
refer to the values of the items during execution of the TERMINATE statement. 
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The USE statement specifies Procedure Division statements to be executed 
just before a report group is produced. 

USE BEFORE BE PORTING identifier-1 [, identifier-2].., 

A USE statement is specified immediately after a section header in the 
Declarative portion of the Procedure Division; it must be followed by a space. 
The remainder of the section must consist of one or more procedural para¬ 
graphs that define the procedures to be used. 

Each identifier represents a report group named in the Report Section of the 
Data Division. An identifier must not appear in more than one USE statement. 

No Report Writer statement (GENERATE, INITIATE, or TERMINATE) may 
be written in a procedural paragraph following the USE sentence in the declara¬ 
tive portion. 

The USE statement itself is never executed, rather it defines the conditions 
calling for the execution of the USE procedures. The designated procedures 
are executed by the Report Writer just before the named report is produced, 
regardless of page or control break associations with report groups. If USE 
procedures are specified for a CONTROL FOOTING report group, they affect 
the previous value of items specified in the CONTROL clause or the current 
value of items specified in a SOURCE clause. 

A USE procedure must not contain any reference to non-declarative procedures. 
Conversely, the non-declarative portion must not contain reference to proce¬ 
dure-names that appear in the declarative portion, except that PERFORM 
statements may refer to a USE declarative or to the procedures associated 
with the USE declarative, 


5 . 4.4 

USE BEFORE 
REPORTING 
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NaMExVIANOS ace * =^JLVk3LW1 

DATExI0/14/68 F.UIT IOMXUC T IME-ON. 1 3/16/&7 TINE-OFF® 13/17/34 

TIME USED 

COMP®ng/oo/l‘5>»3b4 

CHANaOO/00/Qrt.(j4£ 

FACILITIES NUT UjtO 
CORE*oi8 
SC« *006 
LIN£«3702 
CaBD*499 

J08*NLVK3LW1*VIANUS,6U*5000t600 

SCHED♦CORE*SO*SCM*ISfCLASS=i» abort ®1500 

UC8t{U,M,0,x) 


USaSI COBOL 1.0 / master 2.1 REP0RT-WRITE«-£XAMPLE 


10 / 14/68 


00001 

IDENTIFICATION DIVISION, 



00002 

PROGRAM-ID. REPORT-WRiTeR«£XaMPL£. 

00003 

AUTHOR. ANONYMOUS 0 CITIZEN, 



00004 

DATE-WRITTEN. 02/09/68. 



00005 

date-compiled. 10/14/68 



00006 

environment DI'^ISION, 



00007 

CONFIGURATION SECTION. 



OOOOB 

SOURCE-COMPUTER. 3300. 



00009 

object-computer. 3300. 



00010 

INPUT-OUTPUT section. 



OOOll 

file-control. 



00012 

select file-a assign 

TO 

system-input. 

00013 

select file-8 assign 

to 

system-output. 


Cl 

I 

w 


SAMPLE REPORT 
WRITER PROGRAM 
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USaSI COdOL 

l,(; / .^ASTfcH 2,1 


REPOHT-*<WITER-EXA-iPLe 10/14/68 

0 0 014 


UAl A 

^ DIVISION. 

00015 


FiLe 

: SECTION* 

00016 


FD 

FILE-A 

0001? 



Label records aRf. omitteo 

00016 



OaTA record is CaRO-IMaOE, 

00019 

DCOOiu 

01 

CARD"image • 

00020 

UOOO 11 


02 OEPT-nO RlcrURE X(b). 

00021 

000012 


02 sect-no picture X(5). 

00022 

jUOOib 


02 group-no pic X(5), 

00023 

dOOO U 


02 aMNT-nO pic 9(3)V9{2). 

00024 


FU 

FILE-fl 

0002b 



LABEL RECORDS ARE OMITTEo 

00026 



report is report-a. 

00027 


HEHUKT SECTI0t4. 

00028 


Hf) 

rerort-a 

00029 



controls are final* DEPT-NO* SECT-NO 

000^0 



page limit is <30 lines 

00031 



heading 1 

00032 



first detail 10 

00033 



Last detail 50 

00034 



footing 55* 

00035 


01 

type is report heading line 02* 

00036 



02 COLUMN 02 Ric XX VALUE IS 

00037 



02 column 5^ PIC a(i5) YAlUE ^‘EXPENSE ACCOUNT^. 

00038 


01 

tyre is Page headi"<g line plus 2 , 

00039 



02 COLUMN 3 PlC XX ^ALUe 

00040 



02 COLUMN no pic X(4) value #page^* 

ooo<»i 



0? column n5 Pic 999 source is page-counter* 

00042 



02 line Plus 1 column 90 pic X(8) value ^GROuP no#. 

00043 



02 COLUMN 100 pic X(7) VALUE #EXPENSE^. 

00044 


01 

TYRE is control HEADING FINAL LINE PLUS 2* 

00045 



02 COLUMN 4 PIC XXX value #CHF#. 

000^6 



02 cC>LUmn 60 Ric X(]7) ValU£ ^IT^MIZed S^OUP#* 

00047 


01 

type is cO-'-'TROL heading OEPT-NO line plus 2, 

00048 



02 Column 5 pic xxx valu^ #cha#. 

00049 



02 COLUMN 70 Ric ^(7) Value #dept-no#* 

00050 


01 

TYPE is control HEADING SECT-NO LINE PLUS 1 

00051 



next group Plus 2* 

00052 



02 column 6 PIC xxx value #CHB#* 

000^3 



02 COLUMN 80 PIC x(7) value ^SECTION#. 

00054 


01 

detail-item TyPE detail line plus 1* 

00055 



02 COLUMN 7 PIC XX VALUE ^DE^* 

00056 



02 DEPT pic X(5) COLUMN 70 SOURCE DEPT-NO GROUP INDICATE 
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00057 

OOOsg 

00059 

00060 

00061 

00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

OOOTO 

00071 

00072 

00073 

0007 <^ 

00075 

00076 

00077 

00078 

00079 

00080 

OOOBi 

00082 

00083 

00064 

00085 

00086 

00087 

00088 

00089 

O0O9O 

OOO9I 

00092 

00093 


0 ? SECT PIC X( 5 ) COLUMN 80 SOURCE SECT-NO GROUP INDICATE, 
02 gRP-N pic X( 5 ) column 9 ^ SOURCE GROUP-NO. 

02 amount pic ZZZ.ZZ COLUMN 100 SOURCE AMNT-NO. 

01 type is control footing SECT-NO line plus 2 , 

02 COLUMN 6 PIC XXX VALUE 

02 COLUMN 89 PIC X( 10 ) value ^SEC TOTALS. 

02 column 100 RIC ZZZZZZ.ZZ SUM AMNT-NO. 

01 type is control footing oert-no line Plus z, 

02 COLUMN 5 PIC XXX VALUE J^CFA#, 

02 COLUMN 70 PIC X(U) value #DEPT, TOTAl#, 

02 column 100 RIC ZZZZZZ,Z 2 SUM AMNJ^NO, 

01 tyre is control footing final line plus 2 . 

02 COLUMN 4 pic XXX VALUE ^CFF#. 

02 COLUMN ^0 pic x(ii) value ^^ghand tqtal^. 

02 column 100 RiC ZZZZZZ,ZZ sum aMNx^NO, 

01 type is page footing line plus 2 , 

02 COLUMN 3 PIC XX value #PF#, 

02 COLUMN no PIC X( 4 ) VALUE ^^PAGE^* 

02 cOlUMN 115 RiC 999 SOURCE IS PAGE-COuNTER, 

01 type is report footing line plus 2 , 

02 COLUMN 2 PIC XX VALUE ?tRF#, 

02 Column 3 o pic xiad valu£ is 
#this completes The monthl^ expense report#. 

PROCEDURE division, 
start, 

OPEN INPUT FILE-A, 

OPEN OUTPUT FILE- 8 , 

INITIATE REPORT-a. 

6 TEP- 2 . 

READ FILE-A aT END GO TO STOP-lT, 

GENERATE DETaIL-ITEM, 

GO TO STEP- 2 , 

stop-it, 

terminate REPORT-A, 
close EILE-A, file-b« 

STOP RUN, 

END PROGRAM. 
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expense account 


PH PAGE 001 





GROUP NO 

EXPENSE 

CHF 

itemized by group 




CHA 

OEPT-NO 




CHB 


section 



oe 

AOOlO 

AAOOl 

AAAOl 

100.50 

DE 



AAA02 

120,50 

OE 



AAA03 

135.00 

OE 



aaaoa 

125.90 

DE 



AAA05 

156.20 

CFB 



SEC total 

640.10 

CHB 


Section 



OE 

AOOlO 

AA002 

AAAOl 

2,50 

OE 



AAA02 

26.50 

OE 



aaaso 

356«00 

DE 



AAA60 

505.00 

CFB 



SEC TOTAL 

892.00 

CHB 


section 



DE 

AOOlO 

AA050 

AAAOl 

600.00 

CFR 



SEC TOTAL 

600.00 

CHB 


section 



oe 

AOOlO 

AA060 

AAA30 

785,00 

CFr 



SEC total 

785.00 

CFA 

DEPT, TOTAL 


2917.10 

CHA 

OEPT-NO 




CHR 


section 



OE 

A0020 

AA003 

AAA06 

500.50 

OE 



AAA07 

655.00 

CFB 



SEC TOTAL 

1155.50 


PF 


PAGE 001 
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PH 


CHB 

DE 

CFB 

CFA 

CHA 

CHB 

OE 

CFB 

CFA 

CHA 

CH0 

D£ 

CFB 

CH8 

DE 

CFB 

CFA 

CHA 

CHB 

DE 

CFB 

CFA 


A0020 


section 

AA004 


DEPT. TOTAL 
DEPT-'NO 
A0030 


section 

AA005 


DEPT. TOTAL 
DEPT-NO 


A0()40 


A0040 


section 

AA006 

SECTION 

AA007 


DEPT, total 

dept-mo 


A0050 


section 

AA080 


GROUP NO 

AAAI 8 
SEC TOTAL 


AAA17 
SEC TOTAL 


AAA20 
SEC TOTAL 

AAA30 
SEC TOTAL 


AAA40 
SEC TOTAL 


DEPT, total 


PAGE 002 

EXPENSE 

425.00 

425.00 

1S80#50 

525.25 

525.25 

525.25 

682,00 

682.00 

725,00 

725.00 

1407,00 

605.00 

605.80 

605,00 

PAGE 002 


Ul 

I 

CO 

ai 
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GROUP NO 

EXPENSE 

CMA 

OEPT-NO 




CH8 


SECTION 



oe 

A0060 

AAIOO 

AAA50 

725,00 

CFB 



SEC TOTAL 

725#00 

CH8 


section 



OE 

A0060 

AA150 

AAA60 

688,85 

CFB 



SEC TOTAL 

688«85 

CFA 

DEPT, total 


1413,85 

cha 

DEPT-NO 




CHB 


section 



OE 

AOOTO 

AA250 

AAA70 

101.05 

CFft 



SEC TOTAL 

101, o8 

CMB 


section 



oe 

A0070 

AA260 

AAA80 

189,50 

CFH 



SEC TOTAL 

189.50 

CFA 

DEPT, total 


290.55 

CHA 

DEPT-NO 




CHH 


section 



OE 

AOOSO 

AA300 

AAA90 

198,50 

CFB 



SEC. total 

198,50 

CFA 

DEPT. TOTAL 


198.50 


PF 


Page 003 
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PH 


GROUP NO EXPENSE 


PAGE 004 


cha dept-no 


CH8 

section 



DE 

A0090 AA350 

AAA95 

• 50 

CFB 


SEC TOTAL 

• 50 

CFA 

OEPT, total 


• SO 

CHA 

DEPT-NO 



CHB 

section 



OE 

AOlOO AA380 

AAA99 

995*00 

CFB 


SEC total 

995.00 

CFA 

DEPT, total 


995*00 

CFF 

grand iotal 


9934,05 


PF PAGE 004 


RF 


This completes the monthly expense report 
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compile time. Compilation of library text is effectively the same as if the 
text were actually written as part of the source program, 

The COBOL library may contain text for the Environment Division, the Data 
Division, and the Procedure Division, Library text is made available through 
the COPY statement. 


6.1 

COPY STATEMENT 


COPY library-name 


BEPLACING J 

(identifier-1 ) 

BY 

(word-2 

1 identifier-2 j 

-1 


(word-3 ) 

* (identifier-Sj 

m 

(word-4 ) 

i identifier-4 / 

... 


A word is any COBOL word in a library routine that is not on the list of 
COBOL reserved words (appendix C). 

The COPY statement may appear: 

• In any Environment Division paragraphs 

• In any FD, SD, RD or 01 level entry in the Data Division 

• In a Procedure Division section or paragraph 

No other statement or clause may appear in the same entry as the COPY 
statement. 

The library text is copied from the library at compilation time. The result 
is the same as if the text were actually part of the source program. The 
COPY process is terminated by the end of the library text. 
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If the EE PLACING option is used, each word or identifier specified in the 
format is replaced by a corresponding word or identifier when COPY is exe¬ 
cuted, Eeplacement of one identifier by another includes all associated qual¬ 
ifiers, subscripts, and indexes. Use of the EEPLACING option does not alter 
the text as it appears in the library. 


The library must not contain any COPY statements. 
The COPY statement may be written as follows: 

The COPY statement may be written as follows: 


ENVIKONMENT DIVISION. 


( SOUECE-COMPUTEE. ^ 

I OBJECT-COMPUTEE, I 

/ SPECIAL-NAMES, \ COPY statement. 
I FILE-CONTEOL. ( 

V I-O-CONTEOL. j 

DATA DIVISION 


FILE SECTION 


FD file-name 
SD sort-file-name 
01 data-name 


COPY statement. 


WOEKING-STOEAGE SECTION 

01 data-name COPY statement. 


EEPOET SECTION. 

i ED report-name } 
I 01 data-name ( 

PEOCEDUEE DIVISION 


COPY' statement. 


procedure-name. COPY statement 
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6.2 

SOURCE LIBRARY 
PREPARATION 


The information to be copied may appear on the system library file (*LIB) or 
on an auxiliary library file. These are mass storage files referenced through 
the system library directory (*DIB) or an auxiliary library directory, COBOL 
source library entries are placed on a library file using the MASTEB library 
generation routine GLIB. GLIB is described in the MASTER Installation 
Manual. BCD COBOL source statements are written on the library in card 
image format and an entry is placed in the non-resident library subprogram 
directory using the $BCD card as follows: 

$BCD, library-name 

COBOL source statements 


Each Environment or Procedure Division paragraph, file description, record 
description, or report description entry must be placed on the library as a 
separate $BCD entry. 

Library names may not exceed eight characters. 

Examples: 

$BCD,SCOMP 

SOURCE-COMPUTER, 3300. 

$BCD, PAY-FILE 

FD PAY-FILE LABEL RECORD OMITTED 
DATA RECORD IS PAY-CARD. 

$BCD, PAY-CARD 

01 PAY-CARD 

02 NAME PIC X(30). 

02 PAY-RATE PIC 9(5). 


$BCD, SECT-1 

MASTER-UPDATE SECTION. 
PARAGRAPH-1. 

OPEN INPUT... . 


$BCD, PAR-2 

PARAGRAPH-2. 
CLOSE ... . 


The $BCD card always begins in card column 1; the COBOL source statements 
follow the COBOL coding sheet format (chapter 8), 
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SOURCE PROGRAM PREPARATION, 
COMPILATION, EXECUTION 


7 


7.1 

REFERENCE FORMAT The reference format is the standard method for describing COBOL source 
programs. It is described in terms of character positions in 80-character 
source records read from the standard input file (INP) or from the dsi 
supplied by the user in the UCBL control card parameter, I = dsi. 

The rules for spacing given in the discussion of the reference format take 
precedence over all other rules for spacing. 

Each division must be written according to the reference format rules; and 
the divisions must be ordered as follows: 

Identification Division 
Environment Division 
Data Division 
Procedure Division 

Each source record is equivalent to one line of the COBOL coding sheet. This 
source line is divided into five areas as follows: 

Character Position Area 

1-6 Sequence Number 

7 Continuation 

8-11 Area A 

12-72 Area B 

73-80 Identification 
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Specifications for the source program are written on COBOL coding sheets 
according to the formats contained in this manual. 

All division names, section names, and paragraph names start in area A of 
the coding sheet. Division names are followed by a period and the rest of the 
line must be blank. Section names are followed by the word SECTION and a 
period. The remainder of the line is blank, except if the section is a DE¬ 
CLARATIVE, it may be followed by a USE or COPY sentence. Paragraph 
names are followed by a period and at least one space. The text may follow 
or may start in area B of the next line. 

The level indicators; FD, SD, RD, the level numbers; 01 and 77 begin in 
area A, They are followed by one or more spaces and the associated entry. 

All other level numbers begin in area B followed by a space and associated 
entry. 

Sequence numbers, if specified, are in the sequence number area. Program 
identification is placed in the identification code area. Lines may be broken 
at any convenient point, spaces may remain at the end of the line. When a 
word or a numeric literal is split between two lines, a hyphen must be specified 
in column 7 of the second line, (continuation area). If a non-numeric literal is 
split between two lines, a quotation mark must be specified in area B of the 
second line in addition to a continuation hyphen in column 7 of the second line. 

In this case only, the blanks at the end of the first line are considered part of 
the literal. 


7.1.1 

COBOL CODING 
SHEET 
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COBOL Coding Sheet Rules 


Element 

Type 

Division 

Reference Area 

Remarks 


Division-nmne 

A.LL 

r-- - ” ■ 

Area A 

Name must be followed by a 
period; remainder of the line 
must be blank. 

Name 

Section-name 

ENVIRONMENT 

DATA 

PROCEDURE 

Area A 

Name must be followed by a 
space, the word SECTION, 
priority if specified, and a 
period; remainder of the line 
must be blank, or contain a USE 
sentence. 


Paragraph- 

name 

IDENTIFICATION 

ENVIRONMENT 

PROCEDURE 

Area A 

Name must be followed by a 
period and at least one space. 

Text may follow on same line or 
at column 12 on next line. 

Data 

Description 

Entry 

File Description 

Sort Description 
Report Description 

DA*TA* 

Area A 

Descriptions begin with level 
indicator, FD, SD, or RD, 
two or more spaces separate it 
from data name. Clauses are 
separated by one or more 
spaces. 


Record Description 
Report Element 
Description 

DATA 

Area A or 

Area B 

Same as file description entry. 
Level number 01-49, 66, 77 and 

88. Ctaly 01,77 entries may begin 
in Area A. 

Sentence 

First sentence 
of a paragraph 
or section 

IDENTIFICATION 

ENVIRONMENT 

PROCEDURE 

Following period 
and 1 space after 
paragraph or 
section name, or 
on next line in 

Area B, 



All other 
sentences 

IDENTIFICATION 

ENVIRONMENT 

PROCEDURE 

Following period 
and 1 space after 
the previous 
sentence. 

Sentences may be written in 
columns 12 through 72 only. 


Data description 
entry 

DATA 

Area B 

Line breaks may occur at any 
convenient point, with spaces at 
end of line if desired. If a word 
or literal is split between two 
lines, a hyphen must be specified 
in column 7 of the second line. 

Continued 

Elements 

Sentence 

IDENTIFICATION 

ENVIRONMENT 

PROCEDURE 

Area B 

Non-Prc^ram 

Entry 

Sequence 

Number 

ALL 

Sequence Area 

Sequence number does not affect 
the object program; processor 
does check for correct sequencing. 

Program Ident¬ 
ification 

ALL 

Identification Area 

Identification information does 
not affect object program, 


60229400 


7-3 




















































7.2 

COBOL CONTROL 
CARDS 


7.2.1 

UCBL CARD 


This card, which signals MASTER to call the COBOL compiler, is placed 
directly before the Identification Division of the source deck. It may contain 
up to nine parameters which specify input/output options provided by the 
compiler. 

j^$UCBL (PpP2,...P9) 

Parameters are free field, separated by commas; they have the general form: 
option = dsi 


The option must begin with a character I, P, X, L, M, C, O, or T. 


Additional characters preceding the equal sign are ignored; for example, L 
and LIST are the same parameter. If only the option is stated, COBOL will 
make a standard assignment for the option. The user is responsible for 
opening the file and giving it the proper dsi before calling COBOL. 


INPUT = dsi 


PUNCH = dsi 


VT7» OTT'T'TT' — J 

O U X il/ — UOi 


LIST = dsi 


MAP 


Source input file; if the parameter or file equation 
is omitted, the standard input file, INP, is assumed. 

Punch; dsi represents a data set identifier assigned 
to an output file or device. If the parameter is 
absent, no punch output is produced. If only P 
appears, binary output is produced on the standard 
punch file, PUN. 

Binary output for load-and-go; dsi represents a data 
set identifier assigned to a read/write file, If the 
parameter is absent, no load-and-go file will be 
written. If only X appears, binary output will be 
produced on the standard load-and-go file, LGO. 

Source code list; dsi represents a data set identifier 
assigned to an output file or device. If the parameter 
is absent, no listing will be produced. If only L 
appears, the listing will be produced on the standard 
output file, OUT. 

Supplies a memory map in the Data Division only if 
L is also specified; the map is produced on the same 
dsi as the list. 
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OBJECT 


7 . 2.2 

END PROGRAM 


7 . 2.3 

FINIS CARD 


7 . 2.4 

ENDATA CARD 


Provides a listing of the object code generated for 
the program, A mnemonic operation code and data 
reference symbols as well as an octal representa¬ 
tion are produced for each instruction. This option 
may be specified only v/hen LIST is specified. The 
object is produced on the same dsi as the list. 

COPY = fdsi/ddsi Identifies library files; fdsi is the data set identifier 

of the file from which source COBOL statements are 
copied when COPY is specified in the source program. 
ddsi is the data set identifier of the directory used to 
locate the source statement entries on the library 
file. If C appears alone or is omitted, *LIB/*DIE 
is used when a COPY statement is encoimtered, 

ij A ^ 4*/-» c? 'w-t l-» /-V rQ ^ ^ I ’ IJ A Li' fi4~ ^ 4* y~vT*v^ y~v 4- ci 4"/^ 

j. dj.iiL.;cU.u.ou. x bta.loii.x^i.ii/b <xx c; 

compiled; if omitted, ail TRACE statements within 
the source program are ignored duiing compilation. 


CARD This card indicates the end of the source program to the COBOL compiler. 
It contains the specification END PROGRAM beginning in column 8, and 
should follow the last card in the Procedure Division of the source deck. 


The FINIS card signals the end of compilation and returns control to MASTER. 
It consists of the word FINIS starting in or to the right of column 8. 

If only one COBOL program is submitted for compilation, the FINIS card is 
placed behind the END PROGRAM card. If more than one COBOL program 
is submitted for compilation, the END PROGRAM card for the first program 
is followed by the Identification Division for the second program, and so on. 
The FINIS card is placed after the last END PROGRAM card. FINIS is cor¬ 
rectly recognized only after an END PROGRAM card. 


The ENDATA card signals that the end of data has been reached on the system 
input file (INP) or the input file on the card reader. It consists of the word 
ENDATA beginning in coliunn 1. The ENDATA card should be inserted directly 
behind the user's data deck. If the deck has MASTER control cards between 
the end of the data deck and the standard MASTER end-of-file card, the 
ENDATA card preceds the MASTER control cards. 
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7.3 

MASTER 

CONTROL CARDS 


7 . 3.1 

JOB CARD 


7 . 3.2 

SCHEDULE CARD 


MASTER control cards contain a $ punch in column one, followed by the 
statement name and parameters, separated by commas. Only cards required 
for a compile-only and a compile-and-execute run are described in this manual, 
A complete discussion of the options available under MASTER is found in the 
MASTER Reference Manual , Publication number 60213600, The UCBL card is 
a MASTER control card. 


All jobs submitted for processing under MASTER require a JOB card. It sup¬ 
plies information to the installation accounting routine, identifies the program¬ 
mer, and sets a job processing time limit. 


/ $JOB,c,i,t,lc,pc 


c Account number, 0-8 characters 
i Programmer identification, 0-8 characters 

t Job time limit in minutes for entire job maximum 1440 minutes; 
if blank, job time depends on the installation accoimting routine 

Ic line count, specifies size of standard output file 

pc punch count, specifies size of standard punch file 

The c and i fields are mandatory. If one of the fields is blank, the job is 
terminated. The JOB card is written on OUT, 


/$SCHED, SCR-x, CORE^,... 


Under MASTER $SCHED cards are optional; but at least one is required for 
COBOL users. Card format is free field and the entires may occur in any 
order. Blanks or commas may be used as separators, but are not required. 

The fields required by COBOL follow: 

SCR=x 1-3 decimal digits describing number of segments of system 

scratch required to hold the intermediate output of the COBOL 
compiler and the user's scratch files during execution. SCR=8 

■? cj flno Tv» 1 r»TTVMTTvi T*onn-? or>rv>r\-51 

XfcJ XXAXXXX XXX VXXXA xwv^vxxx.^^ xvyx wvxxxx^^xxxvux v/xx * 
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K * 


CORE=x 


1-3 decimal digits describing the number of 512 word quarter 
pages required for the run. If object program is larger than 
the compiler, the user must reserve additional memory, 
CORE=35 is suggested as a minimum for normal compilation. 


Optional fields that may be required by the object program follow: 


CLASS= 


peq= 


E Emergency 

B Background 

I Input/Output (usual class for COBOL jobs) 

C Compute 

peq is a hardware type number, decimal digits to the right of = 
indicate the quantity of equipment of this t 5 q)e required to handle 
user files. Drives must be reserved for all Class B files. Unit 
record devices must also be reserved. 


. 3.3 

DEF CARD 


r 


$*DEF(p^,P2,...) 


These cards are used to allocate, open, or close user files. Complete descrip¬ 
tions appear in the MASTER Reference Manual, *DEF cards are not required 
for COBOL compilation or execution except: 

User must OPEN a nonstandard file for INPUT, LIST, PUNCH, XECUTE, 
or COPY, and he must specify the dsi for the file on the $UCBL card. 

User must allocate all permanent online mass storage files which are not 
in existence when execution starts. Other mass storage files are allocated 
internally during program execution when the programmer includes the 
FILE LIMITS clause in the source program. OPEN source statements in 
the user program open all allocated files except a rerun dump file on mass 
storage, this must be opened with a *DEF card prior to object time. If 
the file to be allocated is blocked, the user must add eight characters to 
the block size for an I/O control system mass storage block header. 
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7 . 3.4 

TASK NAME CARDS 


$nanie,dsi(p^,P2,Pg. - • •) 


7.4 

OUTPUTS FROM 
COMPILATION 


7 . 4.1 

SOURCE PROGRAM 
LISTING 


7 . 4.2 

ERROR 

DIAGNOSTICS 


This MASTEE control card is read by the job monitor, an operating system 
task. The file specified by dsi is positioned at its beginning and the first 
task is loaded. However, if the dsi is *LIB, the library directory is searched 
and the named task is located before it is loaded. 


On a compile and execute run, this 

Since only the name is checked for 
usually appear as follows; 




$name, LGO. 


card follows the FINIS 
library tasks, the task 


card. 

name card will 


The COBOL compiler provides a printer listing of the source program, The 
lines are exact images of the cards in the source program deck. New line 
numbers are generated corresponding to the card image on the listing. The 
sequence numbers from the input cards are also printed. 


Compiler diagnostics follow the source program listing and object code listing. 
Line numbers adjacent to the diagnostics serve as cross reference to the ori¬ 
ginal source line. Data names appear in coded form in the diagnostics. The 
user can refer to the Data Division portion of the source listing where a code 
was generated for the data name of first encounter. 

The only errors recognized by the compiler are those in which the user has 
broken rules of the COBOL language; it does not recognize faulty programming 
logic, unless this also produces a language error. 

All compiler diagnostics are listed in Appendix I, 
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7 . 4.3 

SYMBOLIC LISTING 
OF OBJECT 
PROGRAM 


7 . 4.4 

OBJECT PROGRAM 


7 . 4.5 

DATA tAAP 


7.5 

RERUN/RESTART 

PROCEDURES 


7 . 5.1 

RERUN 


When O is specified on the $UCBL card, an object program listing is printed 
following the source program listing. For each instruction generated, a 
mnemonic operation code and data reference codes are presented. An octal 
representation of each instruction is also printed. 


When X or P is specified on the COBOL control card, the object program is 
written on load-and-go or standard punch files. The decks produced may be 
executed in the usual manner. 


When M is specified in combination with L on the COBOL control card, a 
data map of the information described in the Data Division of the source 
program is printed following the source program listing. 


When the EEBUN option of the I-O-CONTBOL paragraph is specified in the 
source program, special control cards are required to create a rerun dump 
file and to produce absolute task dumps which may later be used to restart 
the job, Bequired control cards are listed below. Cards to allocate object¬ 
time mass storage space for user files are not shown; 

$JOB,, ,. 

$SCHED,. . . 

$*DEF(A,.,.) Allocate the rerun dump file (mass storage 

only); block size must be at least 256 characters 

$*DEF(^,W,rdsi,,..) Open the rerun dump file 

$xxxx,idsi Call task xxxx from idsi (INP, LGO, etc.) 

If the rerun dump file is on tape, the allocate card is not required and the open 
card will contain U as the first parameter. Only one rerun dump file may be 
opened for a given job. 
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7 . 5.2 

RESTART 


To restart a program from one of the dumps on the rerun dump file, the 
following cards are required: 

$JOB,. . , 

$SCHED,, ,. Must have same parameters as original 

$*DEF(^, W,rdsi,. , Open the rerun dump file 

$xxxx,idsi(rdsi,n) Task name card 

xxxx Task name 

idsi dsi of input file (INP, etc.) 

(rdsi, Bestart from rdsi; parameter passed to COBOL restart 
routine 

n) Number of rerun dump to be used for restart; n = 1-9999. 

If n is omitted, the last dump on the file will be loaded. 
The comma must be present. 

Mass storage ALLOCATE cards should not be included in a restart run of the 
program. 

The restart routine re-positions all files to their locations at the time rerun 
dump was taken. The rerun dump file is poritioned so that the next dump 
follows the one used to restart the program. If input data came from system 
input (INP) the entire data deck must be reloaded into the card reader. 
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7.6 

SAMPLE 
COBOL DECKS 
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PROCEDURE DIVISION 
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7 . 6.4 

RESTART 


RESTART Rerun DUMPFILE on Disk, RESTART at Dump 5 
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7 . 6.6 

EXECUTE 


EXECUTE With Object-Time Mass Storage and RERUN on Mass Stor^e 
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APPENDIX SECTION 



SAMPLE PROGRAMS 


A 


The sample program (I^R-UPDT) listed on the following pages is a Program 
Summary Report (PSR) update program. Its principal functions are to: 

• Maintain the PSR master file as a random access mass storage file. 

• Periodically update the master file. 

• Extract information from the file. 

• Produce reports showing, by product set, the number and status 
of current PSRs. 
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PSR-UPDT 


00001 

IDEMTIFICATICN DIVISION. 

00002 

program-io* psr-ijpot. 

00003 

author, das-doj. 

00004 

remarks. 

00005 

environment division. 

00006 

CCNFiGIIRATICn section. 

00007 

source-computer. 3300. 

00008 

object-computer. 3300. 

00009 

SPECiA l-NAMEs. 

00010 

system-output is out. 

00011 

input-output section. 

00012 

FILE’-CONTROL. 

00013 

select out-ftle assign To system-output. 

00014 

select InFILE-CARO assign to system-input. 

00015 

select PRIM-Stc-LIST ASSIGN TO DISK LIST 

00016 

access mode is random 

00017 

ACTUAL key is pRIM-KFY. 

00018 

select PSR-FIl-E assign TO DISK PSR 

00019 

ACCESS MODE IS RANDOM 

OC020 

actual key is psr-key. 

0O021 

select number-file assign to disk pnum 

00022 

access mode is Random 

00023 

actual key is num-key. 

00024 

select sort-file asstun to Scratch scr. 

00025 

select sort-cut assign To tape 05. 

00026 

select P-5-LIST assign TO DISK LST 

00027 

ACCESS MODE IS RANDOM 

00028 

actual key is p-key. 

00029 

select n-file assign to disk PNM 

00030 

ACCESS MODE IS SEQUENTIAL 

00031 

actual key IS N-KEY. 

00032 

DATA DIVISION. 

00033 

FILE SECTION. 

00034 

fd out-file 

00035 

label RECOROS are omitted 

00036 

REPORTS are nbL£TF-RFROHT-l. L1 ST-PSR-NUM-RePCRT. 

00037 

FD TNFIlE-CARO 

00038 

label RECORD IS OMITTED 

00039 

DATA RECORD TS INRFC, 

00040 noOOH 

01 IN9EC. 

00041 000012 

02 card-type PIC X. 

00042 000013 

88 LEUAl-COOE values ;tA^» #C^. /D#» 9*5#, 

00043 000014 

02 FILLER PiC X(79)• 
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00044 

00045 

00046 

00047 

00048 

00049 

00050 

00051 

00052 

00053 

00054 

00055 

00056 

00057 

00058 

00059 

00060 

00061 

00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 

00071 

00072 

00073 

00074 

00075 

00076 

00077 

00078 

00079 

00080 

00081 

00082 

00083 

00084 

00085 

00086 

00087 

00088 



FD 

PRIM-SEC-LIST 

BLOCK contains 24 RECORDS 

RECORD CONTAINS 82 CHARACTERS 
label RECORD IS STANDARD VALUE OF 
ID Is ^list-files?^ 
owner is ^PSRjt 

ACCESS-PRIVACY IS ^APSR# 
MODIfICATICN-PPIvACY is ^MPSR.-^ 
FOITION-nUMBER is 01 
data records are 

header-record, PrIMARY-RECORD» 
secondary-record, empty-rec 

000016 

0l 

hfaoer-Recoro. 


DQ0O17 


o2 forward-link 

PIC 9 (12) . 

DC0018 


02 backwaho-link 

PIC 9(12) . 

000019 


02 HEAUER-Ll^iK 

Pic 9(12). 

000020 


02 HEADFR-L(^v-maMF 

• 

000021 


03 SUPp-LtVF.L 

pic y. 

000022 


03 header-name 

P ' C X (2 1 ) . 

000023 


02 H£ADER-SA^ 

P t c 9(12). 

000024 

01 

primary-record. 


000025 


02 FILLER 

PIC X(24) . 

000026 


02 proouct-name 

PIC X(10) . 

oo6o?7 


02 MASTeR-SAK 

P T C 9(12). 

000028 


02 MSOS-SAK 

P1C 9(12). 

000029 


02 RTS-SAK 

PIC 9(12). 

000030 


02 FILLER 

PIC X (12) • 

000031 

oi 

secondary-record. 


000032 


02 filler 

PiC X(24) . 

000033 


02 psr-number 

PIC 9(S) , 

000034 


02 PSR-SAK 

PIC 9(12). 

000035 


02 prod-name 

PIC X (10) . 

000036 


02 filler 

PiC XX. 

000037 


02 OP-SYs-NAMt 

PIC X(6), 

000038 


02 list-lit 

PiC X(8) . 

000039 


02 filler 

PIC X(15). 

000040 

01 

FMPTY-RECORD. 

000041 


02 EMPTY-SAk 

PIC 9(12). 

DC0042 


02 filler 

PIC X(70). 


FD 

PSR-FILE 

RECORD Contains 51 ? characters 
label record IS standard value of 
ID Is ?iPSR-FlLES^ 
owner is 

access-privacy IS ^ApSR^t 
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000fi9 

00090 

00091 

00092 

00093 

00094 

00095 

00096 

00097 

00098 

00099 

00100 

00101 

00102 

00103 

00104 

00105 

00106 

00107 

00108 

CC109 

00110 

00111 

00112 

00113 

00114 

00115 

00116 

00117 

00118 

00119 

00120 

00121 

00122 

00123 

00124 

00125 

00126 

00127 

00128 

00129 

00130 

00131 

00132 

00133 


modification-privacy is jfMPSR^ 




edition 

-NUMdER IS 02 




data record ts psr- 

file-header* 

PSR' 

000044 

Cl 

PSP 

-file-header. 



000045 


0 ? 

next-empty 

pic 9(12), 


D00046 


02 

FILLER 

PIC X(500). 


DC0C47 

0 l 

PSR 

-FILE-REC. 



0C0CA8 


02 

PSR 

-FILEI-MCVE. 



000049 



03 

PSR-NC 

PiC 9(5). 


000050 



03 

date-in 

PTC X(8) , 


0^0051 



03 

PRCl)-NM 

PTC X(10) . 


000052 



03 

versicn-nc 

PIC 

9V9, 

000053 



03 

PRGO-NC 

PiC X(4) . 


000054 



03 

OP-SYb-l 

PTC X. 


000055 



03 

VER-l 

PIC 

9V9, 

000056 



03 

CP-SYS-2 

PIC X. 


000057 



03 

VER-2 

PIC 

9V9. 

000058 



03 

CP-SY5-3 

PIC X, 


000059 



03 

VER-3 

PIC 

9V9. 

000060 



03 

repcrt-crg 

PIC X(14) . 


000061 



03 

fqual-psr 

PIC X(5) . 


000062 


02 

PSR 

-FILE2-MCVE. 



000063 



03 

CUT-nTD 

PIC X(8). 


000064 



03 

SCHEO-IMPL. 



000065 




04 SYS-A 

PIC 

9V9, 

000066 




04 VER-A 

PIC 

9V9, 

000067 




04 SYb-B 

PiC 

9V9. 

000068 




04 VER-0 

PIC 

9V9, 

000069 




04 SYS-C 

Pic 

9V9, 

000070 




04 VRd-C 

PIC 

9V9, 

000071 



03 

testeu 

PIC X. 


000072 



03 

suh-ng 

PIC 999. 


0^0073 


02 

description. 



000074 



03 

OESC 

PIC X(73) C 

iCCUR! 

0c6075 


02 

PSR 

-FILE3-MCVE. 



000076 



03 

ABS-or 

PIC 9(4) . 


000077 



03 

PSP-AK-FORW 

PIC 9(12). 


000078 



03 

PSR-AK-BACK. 

PIC 9(12). 


000079 



03 

OP-KEYl . 




D00080 

0^0081 

D00082 

000083 

000084 

DOOOfiB 


04 MASTER-LlST-AK PiC 9(12), 

04 MSOS-LIST-AK PIC 9(12). 

04 RTS-LIST-AK pic 9(12). 

03 0P-KEY2 redefines OP-KEYl. 

04 OP-KEY PIC 9(12) OCCURS 3 TIMES. 
03 FILLER PTC XX, 
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00134 
00135 
00136 
00137 
00138 
00139 


FD number-file 

BLOCK CONTAINS 42 RECORDS 

RECORD Contains 12 characters 
label record is standard value of 
ID Is ^^PSR-LIST^ 

OWNER IS ?^PSR^ 


00140 

00141 

00142 

00143 

00144 

00145 

00146 

00147 

00148 

00149 

00150 

00151 

00152 

00153 

00154 

00155 

00156 

00157 

00158 

00159 

00160 

00161 


00176 

00177 

00178 


D00087 

DOOOflfl 

000089 


DC0091 

nc6o9? 

0q6093 

000094 

000095 

000096 

000097 

DQQ098 

DC0099 

DOOlOO 

DOOlOl 


DQQ116 

000117 

000118 


01 


FO 


01 


ACCESS-PRIVACY IS ^^APSH# 
MCOIFICATICN-PRIVACY IS alMPSR;^ 
EDTTICN-NUMHER is 03 

data recohu is numbfR-rfc* 

NIJMBER-REC. 

02 NUM-bLK pic 9(7), 

02 NUM-CHAR PIC 9(5). 

sort-cut 

label heccpd is omitted 
data records are 


rec-a» 

rec-a. 


RFC-C, REc-0* REC-L* REC-U 


02 

02 

02 


02 


PIC 

PTC 


CODE-ALPHA 
COUE-NUM 
REC-A-MOVEI, 

03 PSR-NUM PIC X(5) 
03 filler pic X(52) 

filler 


X. 

9. 


oi rec-c. 


PIC X{?1) 


02 filler 

02 LCCiGpO-OUT 

02 scheduled-impl. 


PIC 

PIC 


X (7) 
X (8) 


00162 

D001C2 


03 

cp-system- 

1 

PIC 

99. 

00163 

D001O3 


03 

VERS-1 


PiC 

99. 

00164 

D00104 


03 

CP-SYSTEM- 

2 

PIC 

99. 

00165 

d661C5 


03 

VERS-2 


PIC 

99. 

00166 

D061O6 


03 

cp-system- 

3 

pic 

99. 

00167 

000107 


03 

VERS-S 


Pic 

99. 

00168 

d6C)108 

02 

test 


PiC 

X. 

00169 

D06109 

02 

SUM 

-NUM 


Pic 

999. 

00170 

DOQllO 

02 

PSH 

-EU 


PiC 

X(45). 

00171 

DOQl11 

02 

filler 


PIC 

X (4) . 

00172 

000112 

Ol REC 

-D. 





00173 

000113 

02 

filler 


PIC 

XX. 

00174 

DC0114 

02 

delete-fteld 

rs 

V 

CCURS 5 TIMES 

00175 

D00115 


03 

oelete-psr- 

■N 

0 PIC 9(5). 


02 


03 delete-reason PIC X(9) 
03 delete-linked pic X. 
filler pic XXX. 


. rec-r. 
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00179 

DC0119 

01 

00180 

000120 


00181 

000121 


00182 

000122 


00183 

000123 


00184 

000124 


00185 

000125 

01 

00186 

000126 


00187 

000127 


00188 

000128 


00189 

000129 


00190 

000130 

01 

00191 

000131 


00192 

000132 


00193 

000133 


00194 

000134 


00195 

000135 


00196 

D00136 


00197 

000137 


00198 

000138 


00199 

000139 


00200 

000140 


00201 

000141 


00202 

0C203 

00204 


so 

00205 

000143 

01 

00206 

000144 


00207 

000145 


00208 

000146 


00209 

000147 


00210 

00211 

00212 

00213 

00214 

00215 

00216 

00217 

00218 

00219 


FO 

00220 

000149 

01 

00221 

00222 

00223 


FO 


rec- 

-L. 



02 

FILLER 

PIC 

XX. 

02 

product-level 

PIC 

X(10) 

62 

CP-SYS-LEVEL 

PIC 

X(6) • 

02 

SUPPCRT-LtVEU 

PIC 

X • 

02 

FILLER 

PIC 

X (61) 

REC 

-U. 



02 

filler 

PIC 

X. 

02 

u-fielo 

PIC 

X(15) 

02 

u-bias 

PIC 

9(5) . 

02 

filler 

PIC 

X{59) 

REC 

-R. 



02 

filler pic X. 



02 

CS-FIELD. 




03 CS-FIELDI. 




04 CS-FIELD2 

PIC 

X (4) • 


04 0S-FIELD3 

PIC 

X • 


03 CS-FTEL04 Pic 

X. 


02 

prod-field pic X(13). 


02 

WHICH-FIELO pic X(10) 

• 

02 

age-field pic x( 5 ) 

« 


02 

quantity-field pic 

: X (7). 

02 

FILLER PIC X(48). 




SORT-FlLFT 

RECORD CCNTAI.MS 80 CHARACTERS 
data RtCCRO IS SCRT-FILE-REC. 
SORT-FlUE-HtC. 

02 scht-cgoe-1 pic X, 

02 SCRT-CCDF-2 Pic X. 

02 SCRT-CODF-3 pic X(S). 

02 FILLER PIC X(73). 

N-FILE 

BLOCK CONTAINS 42 RECORDS 
RECORD CONTAINS 12 CHARACTERS 
label records ARE STANDARD N/aLUE OF 
ID Is #tempcry-psr-ltst^ 

OWNER IS liPSR^ 

ACCESS-PRIVACY IS ^APSR^ 
MOOIFICATION-PRIVACY IS ?4MPSR^ 
EDTTlON-NUMttEK IS OA 
data RECORD IS T-REC-1 . 

T-REC-1 pic 9(12) • 

P-S-LIST 

BLOCK contains 24 RECORDS 
RECORD CONTAINS 82 CHARACTERS 
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002H4 



LAREL RtCCROS are STANDARD VALUE OF 


00225 



ID Is ;^TEMPCRY-LlST-FlLE9t 


00226 



OWNER IS itPSR^i 


00227 



ACCESS-PRIVACY IS ^tAPSR^t 


00228 



modification-privacy IS ;tMPSR# 


00229 



E0ITICN-NUM8FH IS 05 


00230 



OATA RECORD IS T-PEC-2, 


00231 

D66151 

01 

T-REC-2 pic X(82), 


00232 

D00153 

WCRKiNO-STORaGE StCTiCN. 


00233 

77 

REL-FILES pic XX, 


00234 

Dq6154 

77 

CTR pic 99, 


00235 

000155 

77 

Op-cTR picture is 9. 


00236 

000156 

77 

IoEnT-CTR picture is 99, 


00237 

000157 

77 

ChECKED-CUT picture is X(19). 


00238 

000158 

77 

STARS PIC X(6) VALUE * 


00239 

000159 

77 

OIAGNOSTIC-U PIC X(44) VALUE 


00240 



^illegal UTILITY FUNCTlCN^t, 


00241 

000160 

77 

DIAGNOSTiC-C pic X(44) VALUE 


00242 



?fcILL£GAL CARD COOEJfc. 


00243 

000161 

77 

OIAGNOSTIC-P PIC X(44) VALUF 


00244 

000162 


?tNEW PRODUCT NAME — NOT ALLOWED?*, 


00245 

77 

niAQNCSTiC-Ll PIC X(44) VALUE 


00246 

000163 


?SLFVEL CHANGE - NCN-EXISTEMT OPERATING 

SYSTEM^i, 

00247 

77 

0IAGN0STIC-L2 PIC X(44) VALUE 


00248 



?*LEVEL CHANGE — NCN-EXlSjENT PRODUCT NAME^. 

00249 

000164 

77 

nlAGNOSTlC-Pl PIC X(44) VALUE 


00250 



5*PSR number — LESS THAN BIAS?*. 


00251 

000165 

77 

nlAGN0STlC-P2 PIC X(44) VALUE 


00252 



?*PSR number — NON-EXISTENT FoR DELETE?*, 

00253 

000166 

77 

nlAGNCSTlC-P3 PIC X(44) VALUE 


00254 



?*PSR NUMBER — EXISTING FcR ADD?*, 


00255 

000167 

77 

niAGNCSriC-S PIC X(44) VALUE 


00256 



;*ILLeGAL SEQUENCE NUMBERS, 


00257 

000168 

77 

DIAGNOSTIC-O PIC X(44) VALUE 


00258 



?*NC operating system?*. 


00259 

000169 

77 

DTAGNOSTIC-El PIC X(44) VALUE 


00260 



^equated PSR number — NOT IN FILE, 

IGNORED# 

00261 

000170 

77 

niAGN0STlC-P4 PIC X(44) VALUE 


00262 



?fcPSR NUMBEH — non-existent FcR CHANGED. 

00263 

000171 

77 

BKI-CHO pic 9(12) value 100000, 

00264 

. DQQ172 

77 

HOlD-PSR pic 9(5), 


00265 

000173 

77 

PSR PIC 9(5)« 


00266 

000174 

77 

alpha-save pic X. 


00267 

000175 

77 

REAOY-PSR pic 9(12), 


00268 

000176 

77 

READY-LIST pic 9(12). 
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00269 

D00177 

77 

00270 

000178 

77 

00271 

000179 

77 

00272 

DoQiao 

77 

00273 

Dooiai 

77 

00274 

000182 

77 

00275 

000183 

77 

00276 

000184 

77 

00277 

06(Sl 85 

77 

00278 

000185 

77 

00279 

000187 

77 

00280 

000188 

77 

00281 

000189 

77 

00282 

0C0190 

77 

00283 

000191 

77 

00284 

000192 

77 

00285 

D66193 

77 

00286 

000194 

77 

00287 

000195 

77 

00288 

000196 

77 

00289 

000197 

77 

00290 

000198 

77 

00291 

Oo619Q 

01 

00292 

000200 

01 

00293 

000201 

01 

00294 

000202 


00295 

000203 

oi 

00296 

000204 


00297 

000205 


00298 

000206 


00299 

000207 


00300 

000200 


00301 

000209 

01 

00302 

066210 


00303 



00304 

066211 

01 

00305 

066212 


00306 

000213 

01 

00307 

Oq6214 


00308 

000215 


00309 

D00216 

01 

00310 

000217 

01 

00311 

D662I8 

01 

00312 

066219 


00313 

000220 



GO-KEY 

PIC 

9. 

SAVE-SAK 

PIC 

9(12) . 

oelete-sub 

PIC 

9. 

back-save 

PIC 

9(12) . 

rack-save 

PIC 

9(12) , 

I 

PIC 

9. 

TEM-KEY-1 

PIC 

9(12) . 

TEM-KEY-2 

PIC 

9(12). 

TEM-KEY-3 

PIC 

9(12). 

TEM-KEY-4 

PIC 

9(12). 

tem-key-r 

PIC 

9(12). 

TEM-KEY-6 

PIC 

9(12), 

tem-key-t 

PIC 

9(12), 


TEM-KEY-8 pic 9(7), 
rPpT-HEadING pic X(17), 

0S-NUM6ER PIC 9. 

TOOAYS-DATE pIC 9(4), 
niFF-DATE PIC 9(4). 

DESC-CTR PIC 9, 

TEM-HCLD-I pic X(fl2). 

time-stcre pic x(e) . 
nATE-STQRE PIC X (8) . 

P-KEY pic 9(12), 

M-KEY pic 9(12). 

LIST-AREa-FIELD. 

02 LIST-AREA OCCURS 6 TIMES PICTURE IS 9(6), 

first-uate. 

02 MM PIC 99. 

02 filler pic X. 

02 DD P(C 99, 

02 filler PiC X. 

02 YY PIC 99. 

MMTAB* 

02 FILLER PIC X(36) VALUE IS 

^0000310S9090120151181212243273304334^, 
TAR REUtElNES MMTAB, 

02 MTAB pIC 999 OCCURS 12 TIMES. 

IJP-KEYI. 

02 U-BLK pic 9(7) . 

02 U-CH PIC 9(5). 

UP-KEY redefines UP-KEYI PIC 9(12). 

R-C PIC 9(7)V999, 

R-ci redefines B-C. 

02 8LK PIC 9(7). 

02 CHAR PIC 999. 



60229400 A-9 


00314 

D00221 

01 

PRIM-KEYI, 

00315 

D00222 


02 PRIM-KEY-1 PIC 9(7), 

00316 

d66?23 


02 PRIM-KEY-2 pic 9(5), 

00317 

000224 

01 

prim-key redefines PRIM-KEYI pic 9(12). 

00318 

000225 

0l 

PSR-KEYl. 

00319 

DC0226 


02 PSR-KEY-1 pic 9(7) . 

00320 

D0Q227 


02 PSR-KEY-2 pic 9(5) . 

00321 

000228 

01 

PSR-KEY redefines PSR-KEYl PiC 9(12). 

00322 

000229 

0l 

num-keyi, 

00323 

000230 


02 NUM-kEY-1 pic 9(7) . 

00324 

000231 


02 NUM-kEY-2 pic 9 (5) . 

00325 

000232 

01 

NUM-KEY redefines num-keyi pic 9(12). 

00326 

000233 

01 

HEAOER-HECCRD-STCRAGE. 

00327 

000234 


02 EMPTy-HEAU-REC pic 9(12). 

0032B 

000235 


02 PLH-SAK pIC 9(12). 

00329 

000236 


02 PRIM-EXPAND piC 9(l2). 

00330 

000237 


02 H-H-S PIC X(34). 

00331 

000238 


02 H-R-S-SAK pic 9(12). 

00332 

000239 

01 

psr-file-heaoer-stcrage. 

00333 

000240 


02 EMPTY-PSR-FILE pic 9(12). 

00334 

000241 


02 FIRST-PSR-ENT PIC 9(12). 

00335 

000242 


02 PSR-EXPAnU pic 9(12). 

00336 

000243 


02 P-F-h-S-H pic X(476). 

00337 

000244 

01 

number-file-storage. 

00338 

000245 


02 NUM-EXPAnO pic 9(7). 

00339 

000246 


02 bias pic 9(5). 

00340 

000247 

0l 

psr-e(>)T . 

00341 

000248 


02 EQUAl-PSRS pic 9(5) OCCURS 9 TIMES 

00342 



indexed by psr-index. 

00343 

000250 

Ol 

header-recorot. 

00344 

000251 


02 FORWARD-LINKT pic 9(12). 

00345 

000252 


02 BACKWARD-LINKT pic 9(12). 

00346 

000253 


02 HEADER-LINKT pIC 9(12). 

00347 

000254 


02 SUPP-UEVELT piC X. 

00348 

000255 


02 HEAOeR-NAMET piC X(33) VALUE * LIST HEADERS 

00349 

000256 


02 HEADER-SAKT piC 9(12). 

00350 

000257 

01 

primary-recorut. 

00351 

000258 


02 FOR-LINKT PIC 9(12). 

00352 

000259 


02 BAK-lINKT PiC 9(12) . 

00353 

000260 


02 PROOUCT-NmMET PiC X(10). 

00354 

066261 


02 MASTER-SAKT piC 9(12). 

00355 

000262 


02 MSCS-SAKT PIC 9(12). 

00356 

d6q263 


02 RTS-SAKT PiC 9(12). 

00357 

000264 


02 HEAiJ-SAKT PiC X (12) . 

00358 

066265 

ol 

RPrIMARY-RECCRDT redefines PRIMARY-RECOROT. 



00359 

000266 


02 

filler PTC X(34), 



00360 

000267 


02 

R-SAkT pic 9(12) OCCURS 3 TIMES. 

00361 

000268 


02 

filler pic X(12). 



0Q362 

000269 

01 

SEC 

CNDAHY-RECORDT. 



00363 

000270 


02 

FCRWARU-LKT pic 

9(12). 


00364 

000271 


02 

8ACKWAPD-LKT piC 

9(12). 


00365 

000272 


02 

psh-numbeht pic X(S) 

• 


00366 

000273 


02 

PSR-SAKT PIC 9(12). 



00367 

000274 


02 

prod-namet piC 

X(10). 


00368 

000275 


02 

FILLER PiC 

XX. 


00369 

000276 


02 

cp-sys-namet pic 

X (6) , 


00370 

0q6277 


02 

filler PiC 

XX. 


00371 

000278 


02 

LIST-LITERALT pic 

X(9) VALUE * PSR-LINK#. 

00372 

000279 


02 

HEADER-ST PIC 

9(12). 


00373 

000280 

01 

PSr 

-file-rect. 



00374 

0q6281 


02 

psr-filei-mcvet. 



00375 

0q6282 



03 PSR-NCT 

PIC 

9(5) . 

00376 

000283 



03 DATE-INT 

PiC 

X(8) . 

00377 

000284 



03 PHCD-NMT 

PIC 

X(10) . 

00378 

000285 



03 version-nct 

PIC 

9V9. 

00379 

000286 



03 PROD-NCT 

PIC 

X(4), 

00380 

OQ0287 



03 CP-SYS-lT 

PIC 

X. 

00381 

000288 



03 VER-IT 

PIC 

9V9. 

00382 

O00289 



03 0P-SYS-2T 

PIC 

X. 

00383 

000290 



03 VER-2T 

PIC 

9V9. 

00384 

000291 



03 CP-SYS-3T 

PIC 

X. 

00385 

000292 



03 VER-3T 

PIC 

9V9. 

00386 

000293 



03 REPCRT-ORGT 

PIC 

X(I4). 

00387 

000294 



03 equal-psrt 

PIC 

9(5) . 

00388 

000295 


02 

PSR-FILE2-MCVET. 



00389 

000296 



03 CUT-DTDT 

PIC 

X(8) . 

00390 

000297 



03 SCHED-IMPLT. 



00391 

000298 



04 SYS-AT 

PiC 

9V9. 

00392 

000299 



04 ver-at 

PIC 

9V9. 

00393 

000300 



04 SYS-8T 

PIC 

9V9. 

00394 

OQ0301 



04 ver-bt 

PIC 

9V9. 

00395 

000302 



04 SYS-CT 

PiC 

9V9. 

00396 

000303 



04 VER-CT 

PIC 

9V9. 

00397 

000304 



03 TESTEO-T 

PIC 

X. 

00398 

000305 



03 SUM-NOT 

PIC 

999. 

00399 

000306 


02 

oescriptiont. 



00400 

000307 



03 OESCT 

PIC 

X(73) OCCURS 5 TIMES 

00401 

000308 


02 

PSR-FIL3.MCVET. 



00402 

000309 



03 AB-DTT 

PIC 

9(4) . 

00403 

000310 



03 PSR-AK-FORWT 

Pic 

9(12) . 
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00404 

D00311 



03 PSR-AK-BACKT PiC 9(12). 

00405 

D0O312 



03 MASTER-LXST-AKT PiC 9(12). 

00406 

000313 



03 MSOS-LIST-AKT PiC 9(12). 

00407 

DQ0314 



03 RTS-LIST-AkT pIC 9(12). 

00408 

D00315 



03 filler PiC XX. 

00409 

000316 

01 

sys- 

OP-1. 

00410 

00Q317 


02 

SYS-OP picture is X(6) OCCURS 3 TIMES. 

00411 

000318 

oi 

NC-VER-1. 

00412 

000319 


02 

NO-VER picture is OCCURS 3 TIMES. 

00413 

000320 

01 

ioent-psr-stor. 

00414 

0g632l 


02 

STOR-IDENT OCCURS 10 TIMES INDEXED BY INDX-ST 

00415 

000323 



03 STCR-IOENT-1 PiC X. 

00416 

066324 



03 FILLER PIC X. 

00417 

066325 



03 STOh-IOENT- 2 PlC 9(5). 

00418 

000326 

01 

Prod 

-VER-1. 

00419 

000327 


02 

PROU-VER PICTURE IS q\/9 OCCURS 3 TIMES. 

00420 


report 

SECTION. 

00421 


rd 

OELETE-REPCRT-I 

00422 




PAUE LIMIT IS 60 LINES 

00423 




heading 10 

00424 




FIRST DETAIL 1?. 

00425 


01 

line number I$ 10 

00426 




TYPE IS PAGE HEADING 

00427 




COLUMN NUMBER IS 37 

00428 




PICTURE IS X(17) SOURCE IS REPT-HEADING, 

00429 


01 

REPORTEU-DELFTE 

00430 




TYPE IS detail. 

00431 



0? 

LINE NUMBER IS 1? 

00432 




column number is 73 

00433 




PICTURE IS X(8) 

00434 




SOURCE IS system-date. 

00435 



02 

line number is is 

00436 




column number is 10 

00437 




picture is xdo) value Is ?«psr numbers. 

00438 



02 

column number is 22 

00439 




picture is 9(5) 

00440 




SOURCE IS PSR-NOT. 

00441 



02 

line number is 17 

00442 




column number is 10 

00443 




picture is X(7) value is ^product^. 

00444 



02 

column number is 22 

00445 




picture is X(10) 

00446 




source is prod-nmt. 

00447 



02 

column number is 35 

00448 




PICTURE IS X(14) VALUE IS ^^VERSION NUMBER?*. 
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00449 

00450 

00451 

00452 

00453 

00454 

00455 

00456 

00457 

00450 

00459 

00460 

00461 

00462 

00463 

00464 

00465 

00466 

00467 

00468 

00469 

00470 

00471 

00472 

00473 

00474 

00475 

00476 

00477 

00478 

00479 

00480 

00481 

00482 

00483 

00484 

00485 

00486 

00487 

00488 

00489 

00490 

00491 

00492 

00493 


01 


01 


01 


02 COLUMN NIJ''08E« IS 51 
PICTURE IS 9.9 
SOURCE IS VERSIOn-NOT. 


02 column number is 57 

PICTURE IS X(14) VALHE Is ^PRODUCT NUMBERS. 
02 column number is 73 
PICTURE IS X(4) 

source is proo-nct, 

CP-SYS-RPT 


02 

TYPE IS detail, 
line number is Plus 2 


column number 35 
PICTURE IS X(16) 

value Is #operating system# 

02 

column number is 

53 


PICTURE IS X(6) 
SOURCE IS SYS-OP 

(OP-CTR). 

02 

column NUMBER IS 

61 


PICTURE IS X(14) 

value Is #VERSICN NUMBEr^s. 

02 

column number is 

77 


PICTURE IS 9.9 
SOURCE IS NO-VER 

(OP-CTR). 

PPT 

-CRG 

02 

TYPE IS detail. 

line number Is plus 2 


column number is 35 

PICTURE IS X(22) VALUE Is ;tREPCRTlNG ORGANIZATICN;e. 
02 COLUMN NUMBER IS 60 
PICTURE IS X(14) 

SOURCE IS REPORT-ORGT. 

02 LINE NUMBER IS PLliS 2 
COLUMN number is 35 
PIC X(13) VALUE IS ?tpEPCRTED DATE#. 

02 column number IS 60 
PICTURE IS X(8) 

SOURCE IS DATE-InT. 

02 LINE number is PLUS 2 
column number IS 35 

PICTURE IS X(ii) VALUE IS #PSR SUMMARY#. 

02 column number is 60 

PICTURE IS 999 
SOURCE IS SUM-NOT. 

NOT-ANS 

TYPE IS detail. 

02 LINE number IS PLUS 2 

column number is 10 
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00494 



PICTURE IS X(12) value IS ^NCT ANSWEREO^t. 

00495 

01 

answered 

00496 



TYPE IS detail. 

00497 


02 

line NUMRER is PL’JS ?. 

00498 



column NU^iSER IS 10 

00499 



PICTURE IS X(20) value IS ;^AMSWERED INFORMATION#. 

00500 


02 

line NUMRER IS PLUS 2 

00501 



column NUMBER IS 10 

00502 



PICTURE IS X(13) value IS #DATE ANSWERED#. 

00503 


02 

column number is 25 

00504 



PICTURE IS X(8) 

00505 



SOURCE IS OUT-DTDT. 

00506 


02 

COLUMN NUMBER IS 36 

00507 



PICTURE IS X(19) 

00508 



SOURCE IS checked-out. 

00509 

ol 

cpfr-sys-rpt 

00510 



type is detail. 

00511 


02 

line number is plus ? 

00512 



column number IS 30 

00513 



picture is X(2i) value Is #impl operating system#. 

00514 


02 

column number is 53 

00515 



picture is X{6) 

00516 



SOURCE IS SYS-OP (OP-CTR). 

00517 


02 

column number IS 61 

00518 



PICTURE IS X(14) value is #VERSICn NUMBFR#. 

00519 


02 

column number is 77 

00520 



PICTURE IS 9.9 

00521 



SOURCE IS NC-VER (OP-CTR). 

00522 


02 

line number IS Plus i 

00523 



column number is 30 

00524 



picture is X(12) value Is #IMPL PRODUCT#. 

00525 


02 

column number is ^4 

00526 



picture is X(10) 

00527 



source is prco-nmt. 

00528 


02 

column number is 61 

00529 



picture is X(i4) Value is #version numsfr#. 

00530 


02 

column number is 77 

00531 



picture is 9.9 

00532 



SOURCE IS PRCO-VER (OP-CTR). 

00533 

01 

REL 

-PSRS 

00534 



TYPE IS detail. 

00535 


02 

line number is PLUS 3 COLUMN NUMBER IS 10 

00536 



PICTURE IS X(i?) Value is #related psrs#. 

00537 

^ *51 ft 


02 

line number is plus ? COLUMN NUMBER IS 10 


00538 PlCTut^e 13 X(70) 
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00539 



SOURCE Is IOENT-PSR-sTCR, 

00540 


02 

line NUMRtR IS PLUS 3 

00541 



column number is 10 

00542 



PICTURE IS X(ll) value IS ^DESCRIPTION#, 

00543 

01 

nfiSCRlP-RPT 

00544 



TYPE IS detail. 

00545 


02 

line NUMRtR IS PLUS ^ 

00546 



column number is 10 

00547 



PICTURE IS X(73) 

00548 



SOURCE IS OESCT (OESC-CTR). 

00549 

0l 

D^L 

-REASON 

00550 



TYPE IS detail. 

00551 


02 

line number IS PLUS 3 

00552 



column number is 10 

00553 



PICTURE IS X(17) Value Is treason for delete# 

00554 


02 

line NUMRrH IS plus 2 

00555 



column number is 10 

00556 



PICTURE is X(9) 

00557 



source is OELETE-REASON (DELETE-SUB), 

00558 

RO 

LT5T-PSR-NUM-HEPCRT 

00559 



PAGE LIMIT IS 60 LINES 

00560 



heading IJ 

00561 



first detail 18. 

00562 

01 

line NUMRER I-S 10 

00563 


TYPE IS PAGE nEADlNG 

00564 


next ghcup is plus 3, 

00565 


02 

column number is 56 

00566 



PICTURE IS X(6) 

00567 



SOURCE IS OP-SYS-NAMFT. 

00568 


02 

column number is 63 

00569 



PICTURE IS X(13) 

00570 



SOURCE IS PRODUCT-NAmET. 

00571 


02 

column number is 77 

00572 



PICTURE IS X(4) value IS ?tPSRS^, 

00573 


02 

line number IS 13 

00574 



column is 53 

00575 



PICTURE IS X(13) 

00576 



SOURCE IS WHICH-FIELD. 

00577 


02 

column NU-1BER IS 67 

00578 



PICTURE IS X(5) 

00579 



SOURCE IS AGF-FIELD. 

00580 


02 

COLUMN number is 73 

00581 



PICTURE IS X(B) 

00582 



SOURCE IS system-oatf. 

00583 

01 

LISTING-REPCRT 



CT) 

O 

N) 

M 

CD 

O 

o 


> 


Ol 


00584 

00585 

00586 

00587 

00588 

0058<^ 

00590 

00591 

00592* 

00593 

00594 

00595 

00596 

00597 

00598 

00599 

00600 

00601 

00602 

00603 

00604 

00605 

00606 

00607 

00608 

00609 

00610 

00611 

00612 

00613 

00614 

00615 

00616 

00617 

00618 

00619 

006^0 

00621 

00622 

00623 

00624 

00625 

00626 

00627 

00628 


TYPt IS DtTAlL. 

02 LINE NUMBER IS PlJ'S ? 
column NU>^iB£R IS 10 

PICTURE IS 9(6) SOURCE IS LIST-AREA (1). 

02 column number is 32 

PICTURE I'i 9(6) source IS LIST-AREA (2). 

02 column NUMBER IS 54 

PICTURE IS 9(6) SOURCE IS LIST-AREA (3). 

02 column NUMBER IS 76 

PICTURE IS 9(6) SOURCE IS LIST-AREA (4), 

02 column number is 98 

PICTURE I-S 9(6) SOURCE IS LIST-AREA (5). 

02 column MUiiBER IS 120 

PICTURE IS 9(6) SOURCE IS LIST-AREA (6). 
procedure UIVISIC'J. 
declaratives, 

PRIM-SEC SECTION. 

(iSE after STAmOARO ERROR PROCEDURE ON PRIM-SEC-LIST. 
pARA-1, 

display t ERROR OCCURRED ON I/O OF PRIM-SEC-LIST# UPON OUT* 
PSR SECTION. 

USE after standard Error procedure on psr-file. 

pARA-2, 

display # error occurred on I/O OF psr-file^ upon out. 
mumbr section. 

use after STAfxtOARD EPROR PROCEDURE ON NUMBER-FILE. 
pARA-3, 

display t ERROR OCCURRED ON I/O OF NUMBER-FRE^ UPON CUT. 

scrtt section. 

USE afier standard error procedure on sort-out. 

PARA-4, 

display t ERROR OCCURRED ON I/O OF SORT-CUT^ UPON CUT. 

END declaratives. 

read-card section, 
sort-tmput. 

MOVE system-date to first-date. 

compute TODAyS-OATE = {(YY - 66) 365) + MTA8 (MM) ♦ OD, 

OPEN INPUT INFILE-CARD. 

SCpT sort-file On ASCENDING KEY SCRT-cCDE-1 SCRT-CCDE-2 

S0RT-C0DE~3 input procedure is input-procedure 
giving SOF'T-OUT. 

CLOSE INFILF-CARO. 

READ-TAPE section. 

tape-open. 

OPEN INPUT SORT-OUT. 
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00640 

00641 

00642 

00643 

00644 

00645 

00646 

00647 

00648 

00649 

00650 

00651 

00652 

00653 

00654 

00655 

00656 

00657 

00658 

00659 

00660 

00661 

00662 

00663 

00664 

00665 

00666 

00667 

00668 

00669 

00670 

00671 

00672 

00673 


READ SORT-CUT AT End 6C TO LaST-CARO. 

IF code-alpha = GO TC UTILITY, 

move code-alpha to alpha-save* 
file-open, 

OPEN I-C PRIM-SEC-LIST, psr-file, numrer-file, 
move BKl-CHO 10 PRIM-KEY, NUM-KEYt PSR-KEY, 

READ PHIm-SEC-LIST INVALID KEY PERFORM PRCGRAM-BUG, 

read psr-file invalid key perform program-bug. 

READ number-file INVALID KEY PERFORM pROGRAM-BUG, 

MOVE HEADER-RtCCRO TO HEADER-RECORD-STORAGE. 

MOVE PSR-FILE-HEADER TO P5R-FILE-HEADER-STORAGE. 
move NUMBER-REC to NUMBER-FIlE-STORAGE, 

GO TC tape-check, 

TAPE-ImPUT, 

PEPFCRM PEAD-KOUTInE. 

TAPE-ChECK, 

IF code-alpha = ^A^ GC To ADD-PPOCESSOR, 

IF code-alpha = GO To CHANGE-PROCESSOR, 

IF code-alpha = tot GC To DElETE-PROCESSCR. 

IF code-alpha = tLt GO Tc LEvEL-PROCESSCR. 

IF code-alpha = tRt GO TO REpORT-PRCCESSCR. 

perform PRCGRAm-hUG. 
last-card. 

MOVE BKl-CHO TO PRIM-KFY, PSR-KEY. NUM-KEY, 

write number-hec From number-file-storage Invalid key 

PERFORM PHOGRAM-PUG. 

WRITE PSr-FILE-REC FROM PSR-FILE-HEADER-STORAGE INVALID KEY 
PERFORM PhOGRAM-RUG. 

WRITE HEaDER-^eCORD FROM HEADER-RECORD INVALID KEY 
PERFORM pi-CGRAM-RUG. 

CLOSE SOrT-OUU PPIM-Sec-LIST. PSR-FIlE. NUMBER-FILE, 

alter-stop. 

GO TO SToP-PAH. 

stop-par. 

STOP PUN. 

adding section. 

ADD-PRoCESSOR, 

move 1 To GO-KEY. 

TF CODE-NUM = 0 MOVE REC-A-MoVEl TO PsR-FlLFl-MOVE* 

PSK-fILEI-MOVET PERFORM READ-ROUTINE ELSE DISPLAY STARSt 
DIAGnOSTIC-S, STARS, REC-A UPON OUT GO TO CARD-SFQ-ERRCR• 

if-checker. 

IF PsR-NuM not Equal to psr-nc go to add-end, 

TF rCOOE-NUM = 1 OR 2 OR 3 OR 4 OR 5 GO TO AdO"PRCC, 

DISPLAY stars. DIAGNOSTIC-S. STARS, RfC-A UPON OUT. 
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00679 
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00686 

00687 

006B8 

00689 
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00707 

00708 

00709 

00710 
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00712 

00713 

00714 

00715 

00716 

00717 

00713 


GO TO rApE-lM-^UT, 

AOD-pRoC. 

move REC-A-M0^E1 to DESC (CCdE-NUM), dESCT {CCDE-NUM)„ 
perform REAO-kOUTINE, 

GO TO IF-CHECK£R, 

add-eno* 

move date-int to first-date. 

compute AB-OTT = ((YY - 66 ) « 365) + MTAB (MM) + DD. 
move PSR-NOT 10 PSR. 

compute B-C = (((PSR - BIAS) » 12) + 504) / 504. 

IF B-C Is NEGATIVE DISPLAY STARS, DIAGNOSTIC-Pl* STARSf #A 0 ## 

psr-filei-movet upon out go to tape-check. 

MOVE BLK TO NUM-KEY-1. 
move char to fvUM-KEY- 2 . 

AOO-END-1. 

READ NUMBER-FiLE INVALID KEY PERFORM EXPAND-NUM-FILE 
GO TO ADD-END-I. 

IF NUMBER-REC IS NOT EQUAL TO ZEROES DISPLAY STARS, 

OIAGNOSTIC-P 3 , STARS, PSR-FILEI-MCVET UPON CUT 

GO To TApE-InpuT. 

ADD-END-2. 

move psr-not 10 psr-mumbfrt. 

MOVE PLH-SAK (0 PRiM-KEY, SAVE-SAK. 

READ PRIM-SEC-LIST INVALID KEY PERFORM PROGRAM-BUG. 

IF forward-link = rackwaro-link and header-sak 
GO To builo-prim-fmtry. 

MOVE forward-link TO PRIM-KEY. 
check-angther. 

read PRIM-SEC-LIST invalid key perform program-bug. 

IF PROO-nmT = PROOUCT-NAmE 6 c to found-prod. 

MOVE forward-link TO PRiM-KEY. 

IF PrIM-kEY is not EQUAL TO sAVE-SAK GO TO CHECK-ANOTHER. 
ruild-ppim-entry. 

move spaces to PRCDUCT-NAMET. 

display t NEW PRODUCT NAME?t pRCO-NMT * TO BE ENTERED 

^respond ok, no, or correct spelling's, 
accept PROOUCI-NAMET. 

IF PRCDUCT-NAMET = stCK?s GO Tc 8 LD-ENTRY. 

IF PRODUCT-NAMF.T = DISPLAY STARS, DIAGNCSTIC-P, STARS* 

;«A09t PSR-FILEI-MoVET UPON OUT GO TC TAPE-CHECK. 
move PRODUCT-namET To prod-nmt. 

GO TO AOD-END-2. 

BLO-ENTRY. 

PERFORM GET-EmPTY-LIST. MOVE ALL ZEROES TC PRIMARY-RECCRDT. 
move PRIM-KEY TO bak-linkt. 
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move header-sak to heao-sakt, FOR-LINKT. 

M0\/E PHOD-NMT to PRCDUCT-nAMET. 
move ready-ltst to forward-link, 

write HRIMARY-HECORO invalid key perform program-bug, 

MOVE FCR-LINKT to prim-key, 

read prim-sec-list invalid key perform program-bug, 

move RtAOY-LlSr TO BACKWARD-LINK, 

write primary-record Invalid key perform proqRam-bug, 

move ready-list to prim-key. 

move PRIMARY-^ECORDT 10 primary-record, 

WRITE primary-record INVALID KEY PERFORM PROGRAM-BUG, 
found-prod* 

perform GET-Ei'iPTY-PSP, MOVE PSR-NOT TO PSR-NUMBERT. 
move REAOY-PSR to numrer-rec, PSR-SAKT. 

WRITE NUm«ER-'<EC invalid KEY PERFORM PROGRAM-BUG, 

MOVE PRlM-KEY TO TEM-t^EY-l, 

move prod-dmt to ppod-nampt, 

IF CP-SYsTEm-I = SPACES NEXT SENTENCE ELSE MOVE MASTER-SAK TO 
PRLM-KEY -^OVE ^MaSTEP^ Tq OP-SYS-NAMET PERFORM SYS-FCUND, 
IF GP-SYsT£M-.f = SPACES NEXT SENTENCE ELSE MOVE MSOS-SAK TO 
PRLM-KEY MGVF ;^MSCS;i TC OP-SYS-NAMET PERFORM SYS-FCUND. 
IF CP-SYsT£M-.i = SPACES NEXT SENTENCE ELSE MOVE RTS-SAK TO 
PRiM-KEY lOVE ^RTS:^ TO OP-SYS-NAMET PERFORM SYS-FCUND, 

IF SPACES = OP-SYSTEM-1 OP-SYSTEM-2 AND CP-SYSTEM-3 DISPLAY 

stars, di-‘3NCSTIC-0, stars, rec-a upon cut, 

IF EQUAL-PSRT = SPACES NfXT SENTENCE ELSE PERFORM 
EQ-PSR-NI.T'1. 

move RtADY-PS‘^ TO PSP-KEY. 

write PSR-EH.t.-REC EPOR PSR-EILE-RECT INVALID KEY PERFORM 
program-bug. -iOVE TEM-KEY-1 to PRIM-KEY, 

GO TO rApE-CHECK, 

EO-PSP-NUM. 

move EUUAL-PSPf TO PSP. 

COMPUTE B-C = (((RSP - BIAS) 12) ♦ 504) / 504. 

IF B-C IS NEGATIVE DISPLAY STARS, 01AGNCSTIC-El, STARS* #A0#* 
PSR-FILEI-MOVET UPON OUT GO TC EQ-PSR-EnO. 

MOVE 8LK TO N'»:'^-KFY-1 . 
move char to jDM-KEY-2. 

read number-file invalid key move zero to NUMBER-REC, 

IE NUMBEr-REC = ZERO DISPLAY STARS, DIAGNCSTIC-E1, STARS* 
PSR-F-IlEI-MOvET UPON CUT GO TC EQ-PSR-END 
move number-rcc to psr-ak-backt, psr-key, 

PEaO PSR-FTLE invalid key perform PROGRAM-BUG, 

IE PSR-Ak-FCPv^ = ZERO MOVE PSR-KEY TO PSP-AK-BACK, 
PSP-AK-EO-^W. 
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move psr-ak-fgrw to save-sak, psr-ak-fcrwt. 
move READY-PSH to psr-ak-forw. 

WRITE PSR-FILE-REC INVALID KEY PERFORM PR06rAM-BUG« 

MOVE save-sak to psr-kfy, 

READ PSR-FILE INVALID KEY PERFORM PRCGRAM-BUG. 
move ready-psh to PSR-AK-BACK* 

WRITE PSR-FlLt-REC INVALID KEY PERFORM PROGRAM-BUG« 
fq-psr-end. 

EXIT. 

CHANgE-PROC section, 
change-processor. 

move psr-nijm fo PSP. 
move 2 To go-key. 

COMPUTE B-C = < ( (PSR - BIAS) 12) + 504) / 504. 

IF CODE-NUM not equal to zero DISPLAY STARS, DIAGNOSTIC-S* 
STARS, REC-A UPON OUT GO TO CARD-SEQ-ERROR. 

IF B-C IS NEGATIVE DISPLAY STARS, DIAGNOSTIC-PI» STARS* 

rec-a upc<m cut go to card-seo-error. 

move BLK to NUM-KEY-1. 

MOVE char to NUM-KFY-2. 

READ number-file INVALID KEY MOVE ZERO TO NUMBER-REC. 

IF NUMBER-REC = ZERO DISPLAY STARS, DIAGNCSTIC-P4, STARS, 
rec-a UPO'^ CUT Gc TO CARO-SEO-ERROR 
move NUMBER-REC to psr-kfy. move PSR-EQ to psr-eqt. 

READ PSR.FILE INTO PSH-FILE-RECT INVALID KEY PERFORM 
program-bug. 

IF LOGGEd-OUT = SPACES NEXT SENTENCE ELSE MqVE LCGGED-OUT 
TO OUT-DTUT. 

IF OP-SYsTEM-1 = SPACES NEXT SENTENCE ELSE MOVE CP-SYSTEM-1 
TO SyS-AT. 

IF VERS-1 = Sr’ACES NfXT SENTENCE ELSE MOVE VERS-1 TO VER-AT# 
IF CP-SYsTEM-K = SPACES NEXT SENTENCE ELSE MOVE OP-SYSTEM-2 
TO SYS-BT. 

IF VEHS-2 = SPACES NEXT SENTENCE ELSE MOVE VERS-2 TO VER-BT# 
IF OP-SYSTEM-J = SPACES NEXT SENTENCE ELSE MOVE CP-SYSTEM-3 
TO SyS-CT* 

IF VER-3 = spaces next SENTENCE ELSE MOVE VFR-3 TO VER-CT. 

IF test = SPACES NEXT SENTENCE ELSE MOVE TEST TO TESTEO-T. 

IE SUM-NUM = SPACES NEXT SENTENCE ELSE MOVE SUM-NUM TO 
sum-not. move PSR-KEY TO TEM-KEY-3. 

change-checker. 

perform read-routine. 

IF PSR-NUM NCI equal TO pSR-NOT GO TO CHANGE-END. 

IE CCDE-NUM = 1 2 3 4 or 5 MOVE REC-A-MCVEl TO DESCT 
(COOE-NUM) 60 TO CHANGE-CHECKER. 

DISPLAY STARS* OIAGNCSTIC-S, STARS* REC-C UPON OUT. 
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GO TO tape-input. 

change-end. 

IF CP-SYSTEM-J. = ZEROES GO To SECCND-CHECK, 

IF MASTER-LIST-AK = ZEROES MOVE ^MASTER^ TO CP-SYS-NAMET 
perform NEEO-SECONDARY-LTST. 

SECOnD-CHECK. 

IF op-system-2 = ZEROES GO TO THIRD-CHECK. 

IF MGOS-LIST-Ar = ZEROES MOVE tfASCS* TO OP-SYS-NAMET 
perform NEED-SL'CONDARY-LTST. 
third-check. 

IF OP-SYSTEM-3 = ZEROES GO Tc PSR-LINKAGE. 

IF RTS-LIST-A^ = ZFRCES MOVE APT5?i TO OP-SYS-NAMET. 
perform need-secomoapy-ltst. 

PSR-LIMKAGE. MOVE pSm-KEy TO TEM-KEY-3. 

IF PSR-AK-F0P'''.'T = zeroes and PSR-AK-8ACKT GO TO 
NO-PsR-ur'iK. 

IF PSH-AK-FORir.-T IS NOT EQUAL TO PSR-AK-BACKT GO TO BACK-CK. 
MOVE PSR-An-FORWT to p-SR-kEY, 

read psr-file invalid key perform program-bug. 
perform move-data, 

WRITE PSR-FlLt-REC INVALID KEY PERFORM PROGRAM-BUG. 

IF EQUAL-PSRS (1) = SPACES GO TO NO-OTHEP-PSR. 

SEARCH EQUAL-PSRS AT END GO TO NO-PSR-LINK WHEN EQUAL-PSRS 
(PSR-INDEX) 

= PSR-NO MOVE ZEROES TC EQUAL-PSRS (PSR-INDEX) 60 TO 
NC-PSR-LI''iK. 

back-ck. 

MOVE PSR-AK-RACKT TC PSR-KEY. 

read psr-file invalid key perform program-bug. 

perform MOVE-DATA. 

write PSR-FiLt-REC INVALID KEY PERFORM PROGRAM-BUG. 

IF PSR-AK-BACK = TEM-KEY-3 GQ TO BACK-CK-1. 

IF EQUAL-PSRS (1) = SPACES Gc TO BACK-CK, 
search EQUAL-PSRS AT END GO TO BACK-CK WHEN EQUAL-PSRS 
(PSR-INDEX) 

= PSR-NO MOVE zeroes TC EQUAL-PSRS (PSR-INDEX) GO TO 
BACK-CK, 

back-ck-i. 

IF EQUAL-PSRS (1) s SPACES GC TO NC-OTHER-PSR. 

SEARCH EQUAL-PSRS AT END GO TO NO-PSR-LINK WHEN EQUAL-PSRS 
(PSR-INDEX) 

= PSR-NO MOVE ZEROES TC EOUAL-PSRS (PSR-INDEX). 
mo-psr-link, 

move 1 TO delete-sub. 

\NC-PSR-LINK-1. 
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IF delete-sub greater than 9 GO TO NO-OTHEfi-PSR, 

move EOUAL-PSRS (DELETE-SU8) TO PSR. 

compute B-C X (((PSR - MIAS) 12) + 504) / 504. 

IF B-C Is negative display STARS, DIAGNOSTIC-El, STARS* 
PROD-NOT, EQUAL-PSRS (DElETE-SUB) UPON OUT ADD 1 TO 
delete-sub 60 TO NO-PSR-LlNK-l• 
move BLK to NUM-KEY-1. 
move CHAr to nUM-KEY-2. 

read number-file invalid key move zeroes to number-rec. 

IF NUMBER-REC = ZERO DISPLAY STARS, DIA6N0STIC-P4, STARS, 
REC-A upon gut ADO 1 TO DELETE-SUB GO TO N0-PSR*LINK-1, 
move NUMbER-Rc-C to psh-kfy, 

PEAO PSR-FILE invalid KEY PERFORM PROGRAM-BUG, 

MOVE-DATA. 

IF LGGGEd-OUT = SPACES NEXT SENTENCE ELSE MOVE LOGGED-OUT 
TO OuT-Dtu. 

IF OP-SYsTEM-1 = SPACES NEXT SENTENCE ELSE MOVE OP-SYSTEM-l 
TO SYS-A* 

IF VFRS-1 X SPACES NEXT SENTENCE ELSE MOVE VERS-1 TO VER-A. 
IF OP-SYsTEM-2 = SPACES NEXT SENTENCE ELSE MOVE CP-SYSTEM-2 
TO SYS—B 

IF VERS-2 =*SPACES next sentence ELSE MOVE VERS-2 TO VER-B. 
IF OP-SYsrEM-:-i X SPACES NEXT SENTENCE ELSE MOVE CP-SYSTEM-3 
TOSyS- c« 

IF VER-3 = SP.ACES NEXT SENTENCE ELSE MOVE VFP-3 TO VER-C. 

IF TEST r SPACfcS NEXT SENTENCE ELSE MOVE TEST TO TESTED. 

IF SUM-NUM = SPACF.s NEXT StENTENCE ELSE MOVE SUM-NUM TO 
SUM-NC. 

MOVE-DATA-1. 

IF PSR-Ak-FGRw X ZERO 60 TO mOVE-DATA-3, 
move psr-ak-fuhw to PSR-kEY, TEM-KEY-7. 
read psr-file invalid key perform program-bug 

PERFORM mOVE-UATA, 

IF PSR-AK-f-CPw = MUMPER-REC GC TO EQUAL-PSR-LINKAGE. 
MCVE-OATA-2. 

MOVE psR-ak-FORW to psr-key. 

read psp-file invalid key perform program-bug, 

PERFORM move-data. IF PSR-AK-FORW * NUMBER-REC NEXT 
SENTENCE ELSE WRITE pSR-FiLE-REC INVALID KEY PERFORM 
PROGRAM-BUG 60 TO mcvE-DATA-2. 

MCVE-DATA-3, 

move TEM-KEY-3 rc psr-ak-fcrw. 
move psr.ak-backt to PSR-AK-BACK, 

WRITE PSr-FIlE-REC INVALID KEY PERFORM PROGRAM-BUG. 
move psr-key to PSR-AK-BACKT, 
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move PSrt-KEY TO TFM-kEY-7. 

move PSR*AK-B'*CKT to psr-key, 

read PbK.FILE IMVAlID KEY PERFORM PROGRAM-BUG. 

move tem-key-7 to psR-ak-forw. 

WRITE PSR-FILE-REC INVALID KEY PERFORM PROGRAM-BUG. 
ado 1 10 DELFTh-SUB. 

GO TO t^0*P5R-LlNK-l • 

equal-osr-linkagf- 

move tem-key-3 to psr-ak-forw. 
move PSR-AK-B^CKT to TEm-KEY*6. 
move T£M.KEY«7 to PSR-Ak-BACkT. 

WPITE PSR-FUE-REC invalid KeY PERFORM PROGRAM-BUG. 
move TEM-KEY-o to PSP-KEY. 

read PSR-FILF invalid key perform program-bug 
move number-rfc to psr-ak-forw. 

WRITE PSp-FlLr-REC INVALID KEY PERFORM PROGRAM-BUG. 

move number-rcc to PSR-KFY. 

read psr-file invalid key perform program-bug. 

MOVE TEM-KEY-6 to PSP-AK-BACk. 

WRITE PSR-FILE-REC INVALID KEY PERFORM PROGRAM-BUG 
MOVE tem-key-^ to PSR-KEY. 

WRITE PSR-FiLt-REC INVALID KEY PERFORM PROGRAM-BUG. 

ADD 1 TO UELErt-SUB. 

GO TO NC-PSR-LlNK-I. 
no-otheR-psr. 

move tem-key-i to PSR-KEY. 

WRITE PSR-FlLt-REC FROM PSR-FILE-RECT INVALID KEY 
PERFORM program-bug. 

GO TO tape-check. 

NEED-SfCONDArY-LIST SECTION. 

NeEO-LlST-1. 

IF master-ltst-akt is not Zero 

move MASTER-LIsT-AKT to TEM-KEY-1 go to NEED-LIST-2. 
IF MSOS-LIST-AKT IS NOT ZERO 

MOVE MSOS-LIST-AkT TO TEm-KEY-1 GO TO NEED-LIST-2. 

IF RTS-LIST-mKT is NOT ZERO 

MOVE RTS-LIST-AKT TO TEm-KEY-1 GO TO NEED-LIST-2. 

perform program-bug. 

NEED-LTST-2. 

MOVE PRIM-KFY TO TEM-KEY-2. 

move TEm-KEy-I tc prim-key. 

read PRIM-SFL-LIST invalid key perform program-bug. 

MOVE HEAOER-SaK TO PHIM-KEY, 

READ PRIM-SEC-LIST INVALID KEY PERFORM PROGRAM-BUG. 
move header-link to PRIM-KEY, TEM-KEY-1. 
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READ prim-sec-list INVALID KEY PERFORM PRCQRAM-BUQ, 

move psr-key to psr-sakt. 

IF CP-SyS-NAMET = jtMASTER# MOVE MASTER-SAK TO PRIM-KEY. 

IF OP-SYS-NAMET = gtMSCSqt MOVE MSOS-SAK TO PRIM-KEY. 

IF CP-SYS-NAHET = ?tRTS# MOVE RTS-SAK TO PRIM-KEY. 

move pROd-nmt to PROD-NAMET, 

MOVE PSR-NOT TO PSR-NUmBERT. 
perform sys-fcuno. 

IF CP-SYS-NAMeT = ^MASTER^i MOVE READY-LIST TO MASTER-SAKT. 
if CP-SyS-NA'^FT = t^SOS* MOVE REAOY-LIST TO MSOS-SAKT. 

IF CP-SyS-NAmET = ;tRTS^ MOVE READY-LIST To RTS-SAKT. 
move TEM-KEY-2 TO PRiM-KEY. 

sys-fcdnd section. 

SECOnDARY-ENTRY-INSERT. 

IF PRIM-KEY = ZERO PERFORM SECONDARY-HEADER-INSERT 
GO To SEC-ENT-lN-1. 

read phim-seg-list invalid key perform program-bug. 

SEC-ENT-IN-1, 

PERFORM GET-EMPTY-LIST. 

IF forward-link = backward-link and header-sak 
GO To SEC-tNT-IN-3. 

SEC-ENT-IN-2, 

MOVE BACkWARD-UNK TO PRiM-KEY. 

READ PHIM-SEC-LIST INVALID KEY PERFORM PROGRAM-BUG. 

IF PSK-NUMBER LESS THAN PSR-NUM0ERT GO TO SEC-ENT-IN-3. 

IF backward-link not equal to header-sak 

60 To SEC-KNT-IN-2. 

MOVE backward-link to prim-key. 

READ PRIM-SEC-LIST INVALID KEY PERFORM PROGRAM-BUG. 
SEC-eNT-IN-3. 

MOVE FORWARD-LINK TO FORWARO-LKT. 
move REAdY-LIST TO foRwaro-link. 
move header-sak to HEADER-ST. 

MOVE prim-key to BACKWARd-LKT. 

write secondary-record invalid key perform program-bug. 

move FORwARD-uKT TC PRiM-KEY. 

READ PRIm-SEC-LIST INVALID KEY PERFORM PROGRAM-BUG. 

MOVE READY-LIbT TO BaCKWaRO-LINK, 

WRITE SECONDAkY-rEcORD INVALID KEY PERFORM PROGRAM-BUG. 

MOVE ready-list to ppim-key. 
write SEcONOAt^Y-RECOPU FROM SECONDARY-RECORDT 
invalid kly perform program-bug. 
if CP-SyS-NAMET = ;iMASTER^- MOVE READY-LIST TO 

master-list-akt. 

IF CP-SyS-NAHET = ?fcMS0S;ft MOVE READY-LIST TO MSCS-LIST-AKT. 
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IF 0P-SYS-NA'^E.T = *RJS* READY-LIST TO RTS-LIST-AKT. 

seconoary-meader-insert section, 
sec-head-in. 

perform get-empty-list. 

IF OP-SYS-NAM£T = jtMASTFR?^ MOVE READY-LIST TO MASTER-SAK. 

IF CP-SYS-NA-'fET = ;iMSCSj« MOVE READY-LIST TO MSCS-SAK* 

IF OP-SYS-NAHFT = ^p.TS* MOVE READY-LIST TO RTS-SAK. 

move tem-key-1 to PRIM-KFY* header-linkt. 
write primary-record INVALID KEY PERFORM PROGRAM-BUG. 
move ready-list to prim-key* forwaro-linkt* 
backwaro-linkt* heaofr-sakt. 

MOVE TO SUPP-lEVELT. 

move HEAoER-RtCORDT TO hfaDER-RECORD. 
write READEP-^^ECORO invalid key PERFORM PROGRAM-BUG. 
oeleting section. 

DELETE-PROCESSOR. 

MOVE 1 TO OElETE-SUB. 

move ^PSR OELf--TE REPORTS TO REPT-HEADING. 
delete-prcc. 
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IF DELETe-LImKED (DELETE-SUB) ■ SPACES NEXT SENTENCE ELSE 
GO To DELLTE-AlL-PRCC. 

MOVE DELETE-PSo-NC (OELETE-SuB) TO PSR. 
compute B-C = (((PSR - BIAS) » 12) ♦ 504) / 504. 

MOVE BLK TO NuM-HLK. 

MOVE char to -iUM-CHAR. 

move number-pec to num-kfy. 

read number-file Invalid key perform program-bug. 

move NUMBER-RtC TO PSR-KEY» TEM-KEY-1. 
move zeroes to NUMBER-REC. 

WRITE NUmBER-RLC INVALID KEY PERFORM PROGRAM-BUG. 

READ PSR-FILE INVALID KEY PERFORM PROGRAM-BUG. 

move psr-filf-pec to psr-file-rect. 

move SPACES TO PSR-FILE-RFC. 
move EMPTY-PS-i-FILE TO NFXT-EMPTY. 
move tem-key-1 to READY-PSR. 

write PSR-FILE-HEADER INVALID KEY PERFORM PROGRAM-BUG. 

move psr-ak-rackt to psr-key, 

read PSR-FILE INVALID KEY PERFORM PROGRAM-BUG. 

move psr-ak-forwt to psr-ak-forw. 

WRITE PSr-FILE-REC INVALID KEY PERFORM PROGRAM-BUG. 

MOVE PSR-AK-FORWT TO PSR-KEY, 

READ PSR-FILF INVALID KEY PERFORM PROQRAM-BUQ. 

MOVE PSR-AK-RACKT TO PSR-AK-BACK, 

WRITE PSR-FILP-REC INVALID KEY PERFORM PROGRAM-BUG. 

IF master-list-akt is not equal to zero move master-hst-akt 
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TO PRiM-KtY perFCHm oELETE-LIST. 

IF MSCS-LIST-mKT is not equal to zero move mscs-list-akt tg 
prim-key perform OELFTE--LIST* 

IF RTS-LIST-AM IS NOT EQUAL TO ZERO MOVE RTS-LIST-AKT TC 
PRIM-KEY PERFORM UELFTE«lIST. 

perform oelete-part-?. 
perform DELETP-REPORT. 

AOn 1 TO delete-sub. 

IF DELETe-SUB is greater than 5 GO TO TAPE-INPUT ELSE 
GO To DElETE-PROC* 

OELETE-ALL-PROC. move spaces TG IDENT-PSR-STOR. 
delete-all-1. 

PERFORM GET-AK, 

PERFORM GET-pSR. 

IF MASTER-LISI-AKT is not EQUAL TC ZERO MOVE MASTER“LIST-AKT 
TC prim-key perform delete-list., 

IF MSOS-lIST-mKT is not equal to zero move mscs-list-akt 
TO PRIM-KC-Y perform delete-list. 

IF RTS-LIST-AKT is not equal to zero move rts-list-akt 
TO PRIM-KEY perform delete-list. 
delete-part-1. 

move PSR-AK-RACKT to psr-key, 

MOVE I To CTR. 
delete-part-?, 

read PSR-FILE invalid key perform PRCGRAM-8UG* 
move PSR-NC TC STOR-lOENT-2 (CTR). 
move TEM-KEY-? to TEM-KEY-5, 

WRITE PSR-FlLt-R£C INVALID KEY PERFORM PROGRAM-BUG. 

IF CTR = 10 GC TO OElETE-PART-3. ADD 1 TO CTR. 

IF PSR-AK-BAC^ = TEm-KEy-2 nEXT SENTENCE ELSE 
move *9* TC STCR-IdEnT-1 (CTR) 

MOVE PSR-ak-BACK to PSR-KEY go TC DELETE-PART-2. 
DELEtE-PART-3. 

PERFORM DELETt-RPT, 

DELETE-PART-4, 

PERFORM DELETE-ALL-1. 

PFRFORM DELETt-PART-l. 

SET INUX-STCR TO 1, 

search STCR-IuENT at end GC TO DELETE-PART-5 WHEN 

STOR-IDEmT-2 (INDX-STCR) » PSR-NCT MOVE P$R-AK-FCRWT 
TO STCR-IUENT-? (IN0X-STCR>. 

DEUEtE-PART-5. 

PERFORM DELETE-RPT. 

IF TEM-KEY-2 = Tfm-KeY-5 NEXT SENTENCE ELSE 60 TO 
0ELETE-PAH7-4. 
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ADO 1 TO DELFTE-SUB. 

IF DELtFE-SUP IS GPEATFR THAN 5 GO TO TAPE-INPUT ELSE 
GC Tc OELtlE-PRCC* 

GET-aK. 

MOVE DElETE-PSh-NC (OELETE-SuB) TO PSR. 

compute 8-C = (((PSR - filAS) * 12) ♦ 504) / 504- 

MOVE 6LK TO NUm-BlK* 

move char TO :mUM-CHAR. 

move NUmbER-REC TO num-kfy. 

read number-file invalid key perform program-bug. 

move NUMBER-PtC TO PSH-KEY. TEM-KEY-2, 

MOVE ZEROES TO N(JMREP-REC* 

WRITE NUMBER-«EC INVALID KEY PERFORM PRCGRAM-BUG. 

GET-PSR. 

READ PSR-.FILE INTO PSR-F ILE-RECT INVALID KEY PERFORM 
PP06RAM-8ut3. 

move spaces to rsr-file-rec. 
move EMPtY-PS^-FILE to next-empty 

MOVE TEM-KEY-2 TO EMPTY-pSR-FILE 

WRITE PSp-FlLE-HEAbER INVALID KEY PERFORM PROGRAM-BUG. 
OELETE-RPT SECTIO'^'- 
nELETF-PEPCRT. 

INITIATE deleu;-repcrt-i. 
generate report tO-DELETE, 

TF OP-SYS-IT = SPACES NEXT SENTENCE ELSE MOVE 1 TO OP-CTR 
MOVE ^MASfF-Ri TO SYS-OP (CP-CTR) MOVE VER-IT TO 

NC-VER (0<-^-CTR) generate cp-sys-rpt. 

IF 0P-SYS-2T spaces NEXT SENTENCE ELSE MOVE 2 TO OP-CTR 
MOVE ^MS06^ to SyS-OP (CP-CTR) MOVE VER-2T TO 
NO-VEP (cr-CTR) generate OP-SYS-RPT. 

IF CP-SYS-3T = SPACES NEXT SENTENCE ELSE MOVE 3 TO OP-CTR 
MOVE #RTS* To SYS-OP (OP-CTR) MOVE VER- 3 T TO 

no-vfr(OP- ciR) generate op-sys-rpt. 

GENERATE RPT-CPG. 

IF cut-otdt = SPACES genfratf not-ans go to RPT-PTI 

ELSE GENF'^aTE ANS'''ERP‘0. 

IF SYS-AT = ZEROES NF.XT S»-'NTfNCE ELSE MOVE 1 TO OP-CTR 
MOVE ;tMASTtR?e TO SYS-GP (OP-CTR) MOVE SYS-AT TO 
NC-VER (OP-CTR) move VER-AT tc PROD-VER (CP-CTR) 

generate OPER-sYS-ppt. 

IF SYS-BT = ZEROES NtXT SENTENCE ELSE MOVE 2 TO OP-CTR 
MOVE ^MSOS? TO SyS-OP (CP-CTR) MOVE SYS-BT TO 
NC-VER (OP-CTR) MOVE VER-BT TO PRoD-VER (OP-CTR) 

generate gper-sys-rpt. 

IF SYS-CT = ZcKOES NEXT SENTENCE ELSE MOVE 3 TO CP-CTR 
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MOVE TO SYS-OP (OP-CTR) MOVE SYS-CT TO 

NO-VER (OH-CTR) move VER-CT to PROD-VeR (OP-CTR) 
generate OPER-SYS-RPT. 

RPT-PTI. 

generate rel-psrs. 

MOVE 1 To OESC-CTR* 
generate deschip-rpt, 
move 2 To DESC-CTR. 
generate OESCHIP-RPT, 
move 3 To DESC-CTR, 
generate OESCRIP-PPT, 

MOVE 4 To DESC-CTR, 
generate DESCHIP-RPT, 
move 5 TO DESC-CTR, 

GENERATE OESCRIP-RPT. 

TF REPT-HEADING a ;tPSR DELETE REPCRT?s GENERATE DEL-REASON 
ELSE next SEnIENCE, 

RPT-PTP, 

terminate oelete-repokt-i. 
delete-lt section, 
delete-list. 

read PRIM-SEC-LIST INVALID KEY PERFORM PROGRAM-BUG. 

MOVE header-record TC HEAOER-RECORDT, 

MOVE PRIm-KEY to TEM-KEY-1. 

MOVE backward-linkt TO PRIM-kEY, 

read PhIM-SEC-lIST invalid key perform program-bug. 

MC\/E FORWARD-L InkT to FOR!a<ARd-LINK, 

WRITE HEAOER-KtCORD INVALID KEY PERFORM PROGRAM-BUG. 

MOVE FORWARD-LINKT TO PRIM-KEY. 

READ PKiM-SEC-LiST INVALID KEY PERFORM PROGRAM-BUG, 

move backward-linkt tc backward-link, 

WRITE HEaDEP-HECORD INVALID KEY PERFORM PROGRAM-BUG. 

move spaces to hfader-recoro, 

move EMPTY-HFAO-PEC to EmPTY-SAK. 

move TEM-KEY-] to PRIM-KEY» EMPTY-HEAD-REC. 

WRITE empty-record INVALID KEY PERFORM PROGrAM-BUG. 
level-proc Section, 
level-rrocessor. 

move PLH-SAK to PRIM-KEY, 

READ PHIm-SEC-LIST INVALID KEY PERFORM PROGRAM-BUG. 

MOVE forward-link TO PRIM-KEy« 

READ PHIM-SEC-LIST INVALID KEY PERFORM PROGRAM-BUG. 

IF PRCDUcT-NA.-'iE = PRODUCT-LEVEL GO TO OP-SYSTEM-CHECK, 
DISPLAY STARS. 01AGN0STIC-L2, STARS. REC-L UPON OUT. 

GO TO TApE-iNPUT, 



> 

I 

to 

00 


05 

O 

to 

to 

«5 

o 

o 


01170 

01171 

01172 

01173 

01174 

01175 

01176 

01177 

01178 

01179 

0118C 

01181 

01182 

01183 

01184 

01185 

01186 

01187 

01188 

01189 

01190 

01191 

01192 

01193 

01194 

01195 

01196 

01197 

01198 

01199 

01200 

01201 

01202 

01203 

01204 

01205 

01206 

01207 

01208 

01209 

01210 

01211 

01212 

01213 

01214 


CP-SySTEM-CHECK. 

IF CP-SYS-LEV£L = ^MASTER* MOVE MASTER-SAK TO PRIM-KEY 
GO To COMPLETE-LEVEL. 

IF CP-SYS-LEVEl = ^MSOS^ MOVE MSCS-SAK TO PRIM-KEY 
GO To CCmPlETE-LEVEL, 

IF CP-SYS-LEVtL = MOVE RTS-SAK TO PRIM-KEY 

GO TO complete-level. 

display STARS» OTAGNCSTIC-Llf STARS* REC-L UPON OUT* 

GO TO TAPE-INPUT. 

complete-level. 

READ PRIM-SEC-LIST INVALID KEY PERFORM PROGRAM-BUG. 

move support-level to supp-level. 

write header-record invalid KEY PERFORM PROGRAM-BUG. 

GO TO tape-input, 
report-process section. 

REPORT-PROCESSOR. 

IF 0S-FIELD2 IS NUMERIC NEXT SENTENCE ELSE GO TO 
REPORT-PRGCESSoR-1. 

IF 0S-FIELU3 iS EQUAL TO SPACE MOVE CS-FIELD2 TO PSR ELSE 
MOVE OS-FIELDI TO PSR. 

COMPUTE B-C = (((PSR - BIAS) 12) ♦ 504) / 504. 

MOVE BLK TO NuM-eLK. 
move char TO ;\UM-CHAR. 

MC\/E NUMbER-RLC TO num-kfy. 

READ number-file INVALID K£Y PERFORM PROGRAM-BUG. 
move NUMBER-PtC TO PSH-KFY. 

READ PSR-FILE INVALID KEY PERFORM PROGRAM-BUG. 

MOVE ^fcSlNGLE PpPORT/ TO PEPT-HEADING. 

move psr-filf-kec to psr-file-rect. 
perform deletl-rpt. 

60 TO tape- INPUT. 

REPORT-PRCCESSOR-1. 

IF OS-FIELU = ?^ALL^ perform PROD-CHECK VARYING OS-NUMBER 
from 1 BY 1 until OS-NumpfR s 3 GO TO TAPE-INPUT. 

IF OS-FIELD = ^MASTERji fMoVE 1 TO OS-NuMBER. 

IF OS-FIELD = ?iMSOS^ MCVF 2 TO CS-NUMbER. 

IF OS-FIELD = ?=RTS^ MOVE 3 TO OS-NUMBER. 
perform prod-check go to tape-input. 

PROD-CmECK SECTION. 

phoo-chek. 

move plh-sak to prim-key, TEM-KEY-1. 

read prim-sec-list Invalid key perform program-bug. 

move forward-link to TEM-KEY-2* prim-key. 

IF prod-field = ;*ALL# PERFORM ALL-PROD GO TO PR0D-CHECK3. 
PRCD-CHECKI. 
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PEAD PRIM-SEC-LIST IM'/ALTD KEY PERECRM PRCORAM-BUG. 

MOVE FORWARD-LINK TO T£m-k£Y-3. 

IF PRCO-FIELD = PRGDUCT-NAME; GO TO PRCD-CHECK2. 

IF FORWARO-LI -IK = TEM-KEy-1 GO TO NONE-THERE. 

GO TO PRCO-CH^CKl, 

PRC0-CHECK2. 

move primary-kfcoro to primary-recordt* 

IF R-SAKT (GS-nUmbfR) = 0 GO TO MCNE-THERE. 

MOVE 1 rc OELi-TE-SUR. 

MO\/E r-Sakf (os-mumbfh) to Prim-key* tem-key-4* 
perform fcll-l isr. 
pRC0-CweCK3, 

EXIT. 

FOLL-LIST SECTIO^i» 
fol-list, 

RFAD PHIM-SEC-LIST ImVALID KEY PERFORM PRC'3pAM-8UG. 
move SECONDARY-RFCoRn TO SECOND ARY-R£cCRDT, 
move PSR-SAKT TO osR-KEY. 

READ PSR-FILF INVALID KEY PERFORM PROGRAM-BUG. 

move psr-file-rec to psr-file-REct, 

IF WHICH-FIELU = ^aLL* NEXT SENTENCE ELSE IF OUT-DTDT IS 
NOT equal rO SPACES AMO WHICH-FIELU = ^UNANSWERED# 

MOVE FCRW^^pD-LKT to PRlM-KEY IF FcRWARD-LKT = TEM-KEY-4 
GO To PErF-EXIT else go to fcl-list else if 
OUT-dTOT is EQUAL TO SPACES AND WHICH-FIELD = ^ANSWERED# 
MOVE FORWmRO-LKT to prim-key if FORWARD-LKT = TEM-KEY-4 
GO To PERt--ExiT ELSE GO TO FoL-LlST. 

SUBTRACT AB-DiT FROM TCDaYS-DATE GIVING DIFF-DATE* 

IF age-field #all# next sentence else IF tcdays-date 

IS LESS TMAN 30 move FORwARD-LKT TO PRIM-KEY 
IF FCRWAPU-LKT = TEM-KEY-4 60 TO PERF-EXIT 
ELSE GO TO FCL-LIST. 

MOVE # PSR HtPCRT t TO REPT-HEAOING. 

IF QUANTITY-FIELD = stUETAlL# PERFORM DELETE-RPT GO TO ENCK. 

IF QUANTITY-FIELD = jiBRiFF# PERFORM DELETE-REPORT GO TO ENCK, 
IF QUANTITY-FIELD = ?fcH5T^ PERFORM LIST-RPT. 

ENCK. 

MOVE FCRWARD-LKT TO PRIM-KEY, 

IF FCRwARD-LKf = TEM-KEY-4 NEXT SENTENCE ELSE GO TO 
FOL-LIST. 

IF OUANTITY-FIELD = ^LIST# AnD DELETE-SUB IS GREATER THAN 1 
GENERATE LI STING-«EP0RT TERMINATE LIST-PSR-NUM-REPORT. 
perf-exit. 

EXIT. 

LIST-RPT SECTION. 
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tIST-PSR-NUM. 

INITIAIE tlST-PSP-NUM-REPCi^T. 

move PSR-MUMPtRT To LI^T-AREA (DELETE-SUB). 

IF OFLETE-SUQ = 6 generate LISTInG-REPCRT move 1 TO 
DELETE-SU"'. 

ADD 1 TO DELE'E-SUB. 

LIST-FYIT. 

EXIT. 

aLL-PPon SECTION', 

ALL-PPOD-PARa. 

IF poR'a'ARO-LI -K * TEM-t<EY-l GO TO ALL-PRCO-EXIT. 

RFAO PKiM-Sec-LiST INVALTO KEY PERFORM PRCGPAM-BUG. 

MOv/E ECKwAKD-i. 1 'Jk TO TE'Y-KEY-S. PRIM-KEY. 

IF p-SAKt (GS-iMUMBER) = 0 00 TO ALL-PROD-PApA • 
move PRIMAPY--ECORO TO PR I viARY-R£CCRDT. 

MOVE 1 TO DELixTE-suB, 

MOVE R-SAKT (OS-!mUpBFP) TO prIm-KEY* TEM-KEY-4. 

PERFORM FOLL-<-iST. 

MOVE TEM-KEY-3 ro PRIM-KFY. forwaro-link, 

GO TO all-pro )-PARA. 

ALL-PROD-EXIt. 

EXIT. 

NCNE-ThERE SeCTIO''. 

NEIN-ThERE. 

if cs-n'Jmber = I oispLAY * master * product-name 
t NONE There?! upon out . 

IF oS-NUmBEP = 2 DISPLAY * MSCS ^ PRCDUCT-NAME ^ NONE THERE # 
UPON cur, 

IF os-number = 3 f.'ISpLAY * RTS * PRODUCT-NAME * NONE THERE # 
UPON OUT, 

GO TO PRCU-CH‘:CK3. 

GET-FMPTY-LiST SECTION. 

get-ltst. 

move prim-key !0 TEM-KFY-4. 

move EnPtY-HF*^')-REC to REuDY-LIST. prim-key, 

move pEADER--^ECOR r) TO TF'M-HcLO-1. 

READ PHIM-SF‘--LTST TNVAiJD KEY PERFORM PROGRAM-BUG. 

IF FCR'^ARD-LI-iK = 7EPG PERFORM EXPAND-LIST-FILE. 

MOVE fcrwaro-'-Ink to empty-heao-rec. 

MOVE TEm-KEY-a to prim-key, 

MOVE T£m-MCL'‘-1 to HEauE^-RECORO. 
get-empty-psr section, 
get-psp-e. 

MOVE EMPtY-PS'-'--FILF to ready-psr, psr-key. 

READ PSH-FILE invalid KEY PERFORM PRGGRAM-BUQ. 
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01305 

01306 

01307 

01308 

01309 

01310 

01311 

01312 

01313 

01314 

01315 

01316 

01317 

01318 

01319 

01320 

01321 

01322 

01323 

01324 

01325 

01326 

01327 

01328 

01329 

01330 

01331 

01332 

01333 

01334 

01335 

01336 

01337 

01338 

01339 

01340 

01341 

01342 

01343 

01344 

01345 

01346 

01347 

01348 

01349 


IF next-empty = ZERO PERFORM EXPAND-PSR-FILE. 
move next-empty to EMPTY-PSR-FILEo 
EXPAnD-LIST-FILE section- 
exp-list, 

CLOSE PRIM-SEC-LIST. 
move zero to fEM-KEY-8. 

enter compass? expand? PRIM-SEC-LIST* TEM-KEY^S* 

COMPUTE PRIM-EXPANO ** ( (TEM-KEY-8 lOOOOO) ♦ PRlM-EXPAND) • 
open I-O PRIM-SEC-LIST. 

perform prim-key-update. 

move up-key to prim-key, te:m-key-5. 

perform LIST-Hile-empty, 

move TEm-KEY-5 to FoRWARO-LINK. 

EXPAnD-PSR-FILE St-CTIOM, 
exp-list. 

CLOSE PSR-FILC. 

MOVE ZERO TO TF:M-KFY-8. 

ENTER COMPASS? EXPAND? PSR-FILE* TEM-kEY-8 * 

COMPUTE PSR-EXPAND = ((TEM-KEY-8 lOOOOO) ♦ PSR-EXPAnO). 
OPEN I-O PSR-FILE. 

perform psr-key-update. 

move up-key to psr-key* TEM-kEY-5- 

PERFORM PSR-FiLE-FMPTY. 

MOVE TEM-KEY-b TO nExT-EMPTY, 

expand-num-file section. 

EXP-NIJM. 

CLOSE number-file. 

ENTER compass? EXPAND? NUMBER-FILE? TEM-KEY**8rf 

OPFN I-O NUMBtH-FiLE. 

move num-key to TFM-kEY-6. 

move num-expano to NUM-KEY-1, 

move ZEPO to NUM-KEY-2. 

add TEM-kEY-8 to MUM-EXPAND. 

move zero to 'siUMHeR-REC. 

PEPFCRM NUM-FiLE-ZERC* 

MOVE T£m-K£Y-6 to NUM-KEY« 

LiST-FTLE-tMPTY SECTION. 

list-empty. 

perform PRIM-kfy-UPDATE. 

IF UP-KEY = PRTM-EXPAMO GO TO LIST-EMPTY-ENO. 
move UP-KEY to forward-link. 

WRITE header-record INVALID KEY PERFORM PROGRAM-BUG* 
move up-key to pwim-key. 

GO TO list-empty. 

LlSr-FMPTY-ENO. 
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0 l3i=>0 

013S1 

01352 

01353 

01354 

01355 

01356 

01357 

0135ft 

01359 

01360 

01361 

01362 

01363 

01364 

01365 

01366 

01367 

01368 

01369 

01370 

01371 

01372 

01373 

01374 

01375 

01376 

01377 

01378 

01379 

01380 

013B1 

01382 

01383 

01384 

01385 

01386 

01387 

01388 

01389 

01390 

01391 

01392 

01393 

01394 


move zero to FCftWARO-LiNK. 

WRITE HEADER->^tCCRD INVAI ID KEY PERFORM PROGRAM-BUG, 

psr-file-empty section. 
pSR-emdty. 

PERFORM PSR-KEY-UPoATE. 

IF UP-KEY = PSP-EXPANO GO TO PSR-EMPTY-END. 

MOVE up-key to next-empty. 

WRITE PSr-FILC-HEAoER INVALID KEY PERFORM PROGRAM-BUG. 

move up-key to psr-key. 

GO TO PSR-EMPfY. 
psr-fmpty-end. 

MOVE ZERO TO nEXT-FMPTY. 

WRITE PSr-FILE-HEAdER INVALID KEY PERFORM PROGRAM-BUG. 

num-filf-zero section. 

MUM-ZERO. 

write NUmBER-pEC invalid key perform program-bug. 

PERFORM NUM-KEY-UPDATE. 

IF NUM-KEY-1 not equal to num-expano go to num-zero. 
UPOAtE-KEYS section. 
drIM-KFY-UPOATE. 

ADD 82 prim-key GIVING UP-KEY. 

IF U-CH GREATER THAN 1887 
ADO I TO U-8LK 
MOVE ZERO TO U-CH. 

psr-key-upuate. 

ADD 100000 PSR-KEY GIVING UP-KEY. 

note paragraph perform To allow easy modification 
OF blocking parameter. 

NUM-kFY-UPDAtE. 

ADD 12 TO NUM-KEY. 

IF NUM-kEY-? greater than 493 
ADD 1 TO NUM-KEY-1 
MOVE ZERO TO NUM-KEY-2. 

P-KEy-I)PDAT£. 

ADD 82 P-KEY GIVING UP-KEY. 

IF D-CH GREATER THAN 18fl7 
ADD 1 TO U-8LK 
MOVE ZERO TO U-CH. 

CARO-SFQ-ERR SECTION. 

card-sfq-errcr. 

MOVE PSH-NUM ro HCLD-PSR. 

cd-seo-err. 

read sort-cut at end go to last-card. 

if PSR-NUM = HOLO-PSR AND CODE-ALPHA « ALPHA-SAVE GO TO 

cd-seq-er*^. 
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01395 

01396 

01397 

01398 

01399 

01400 

01401 

01402 

01403 

01404 

01405 

01406 

01407 

01408 

01409 

01410 

01411 

01412 

01413 

01414 

01415 

01416 

01417 

01418 


01435 

01436 

01437 

01438 

01439 


MOVE code-alpha TO AlPHA-SAV'E 
GO TO TApE-CHtCK. 

program-bug section, 
system-error, 

display ;tIRRtGULAR CONDITION OCCURRED* FILE INTIGRITY QUEST! 
94CNABLE;t, 

DISPLAY ?i-lRREGULAR CONDITION OCCURREOt FILE INTIGRITY QUEStl 
;*ONABLE?i 
UPON OUT. 

ENTER compass* PRGABCRT. 

input-prccedure section. 

rARA-OnE-TIME. 

READ INFiLE-CARD AT END GO To ONE-TIME-ALSO. 

IF legal-code release scrt-file-rec from inrec 

GO To PARm-OnE-TIME. 

DISPLAY STARS* 01AGNCSTIC-C* STARS. InREC UPON OUT. 

GO TO para-one-time. 

cne-time-alsc. exit, 
read-routine section, 

PEAD-RCUT. 

READ SORT-OUT AT END GO TO READ-RCUT-2. 

if code-alpha = alpha-save Go to read-rout-end. 

READ-ROUT-1. 

GO TO add-end? change-end. tape-check depending on 


01419 

60-KEY. 





01420 

READ-RcUT-2. 





01421 

move tit TO 

CODE-alpha. 




01422 

GO TO READ- 

ROUT-1. 




01423 

pead-rout-end. 





01424 

EXIT. 





01425 

utility section 

• 




01426 

U-PRcCESSOR. 





01427 

IF U-FIElO 

= ^load files-/ 

GO 

TO 

load . 

01428 

IF U-FIELO 

= /dump files/ 

60 

TO 

dump. 

01429 

IF U-FIElD 

= /collect files/ 

Go 

TO 

COLLECT. 

01430 

IF U-FIElO 

= /establish FILES/ 

Go 

TO 

establish 

01431 

IF U-FIELO 

= /LIST files/ 

60 

TO 

file-list 

01432 

DISPLAY stars* OIAGNCSTIC-U* STARS. 

REC 

;-u. 


01433 

U-PRCC-1. 





01434 

READ SORT-C 

UT AT EnO 





GO To ALTEk-STOP. 

if code-alpha = GO TO U-PROCESSCR. 

move code-alpha to AlPHA-SAVE* 

GO TO FiLE-OptN. 

LOAD SFCTION, 
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01440 

01441 

01442 

01443 

01444 

01445 

01446 

01447 

01448 

01449 

01450 

01451 

01452 

01453 

01454 

01455 

01456 

01457 

01458 

01459 

01460 

01461 

01462 

01463 

01464 

01465 

01466 

01467 

01460 

01469 

01470 

01471 

01472 

01473 

01474 

01475 

01476 

01477 

01478 

01479 

01480 

01481 

01482 

01483 

01484 


1.0-3] . 

perform opera fOR-CHECK« 

enter compass* RLFASE* PRIM-SEC-LIST* PSR-FILE* NUMBER-FILE* 
enter CCMPASSt load# PR IM-SEC-LIST, PSR-FiLE# NUMBER-FILE, 

GO TO U-pRCC-i, 

DUMP SECTION. 

DP-l,. 

ALTER ALTER-srCP TO PROCEED TO DUMP-FILES. 

GO TO U-pRCC-1. 

note files ARt DUMPED ONlT AT END OF RUN. 
dump-ftles. 

open input PRiM-SEC-LlST, PSR-FILE# NUMBER-FILE* 

FMTER compass# dump, PRIm-SEc-LIST# PSR-FILE* NUMBER-FILE. 
CLOSE PRIM-SEC-LIST# PSR-FiLE* NUMBER-FILE. 

GO TO STOP-PAR. 

FILE-LIST section. 

FILE-LI. 

open input PRiM-SEC-LlST. PSR-FILE# NUMBER-EILE. 

move system-date to date-store. 

MOVE system-time to time-store. 

DISPLAY 

^1 PSR LIST file listing. DaTE t DATE-STORE 
TIME * time-store 
UPON CUT. 

DISPLAY ?40E UPON CUT. 
move 8K1-CH0 TO NUM-KEY. 

FILE-LP. 

read number-file invalid key go to FILE-L3. 

DISPLAY SPACE NUM-KEY SPACE NUMBER-REC UPON CUT. 
perform NUM-KcY-UPDATE. 

GO TO FILE-L2. 

FILE-L3. 

CLOSE number-file. 

MOVE SYSTEM-TIME TO TIME-STORE. 

move system-date to date-store. 

DISPLAY 

;tl list file listing. date * date-store 

TIME 36 time-store 

UPON OUT. 

DISPLAY ^0^ UPON OUT. 
move 0K1-CHO TO PRIM-KEY, 

EILE-L4. 

read prim-sec-list Invalid key go to file-lb. 

DISPLAY SPACE prim-key SPACE HEADER-RECORD UPON CUT. 

PERFORM PRIM-KEY-UPDaTE. 
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o 

to 

to 
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I 
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01485 

01486 

01487 

01488 

01489 

01490 

01491 

0149 ^ 

01493 

01494 

01495 

01496 

01497 

01498 

01499 

01500 

01501 

0150? 

01503 

01504 

01505 

01506 

01507 

01508 

01509 

01510 

01511 

01512 

01513 

01514 

01515 

01516 

01517 

01518 

01519 

01520 

01521 

01522 

01523 

01524 

01525 

01526 

01527 

01528 

01529 


MOVE U8-K&Y TO prim-key. 

GO TO FIlE-L4» 

FIUE-L8, 

CLOSE ERim-SEC-LIST. 

move SYSTEM-OMt'E TC nATE-STORE, 

MOVE SYSTEH-TIME TO TIME-STORE. 
nTSELAf 

/I PSR FILE LISTING DATE t DATE-STOWE 

TiMc: TXM£-5T0«F ■*■** 

IJOCN CUT, 

move 8K1-CH0 TO PSR-KtY, 

FILE-L6. 

rFAO PSH-FILE invalid key 00 TO FlLE-L?. 
display PSP-KFY space PSR-E I LEI-MOVE PSR-FILE2-MCVE 

UPON CUT. 

nisPLAY DESCRIPTICNS DELETED.UPON OUT. 

display t t PSR-FILE3-MCVE UPON OUT. 

PERFORM PSR-KtY-liPnATE. 

MOVE UP-KEY TO PSR-KFY, 

GO TC FILE-L6. 

FILE-L7. 

CLOSE PSR-FILt. 
display ^1^ UPON OUT. 

GO TO U-PKCC-i. 

operator-check section, 

^PER-CK • 

DISPLAY ^ RESPOND OK IF FILES ARE TO bE RELEASED^. 
accept RFL-FIlES. 

IF REL-FILES is not EUiJAL TO ;tCK;t DISPLAY SPACE REC-U 

SPACE os-erator ohop^ upon out stop run. 
establish section- 
ESTAb-1. 

PEpFORN OPERA)OR-ChEcK, 

enteh compass* rlfase* pR;M*s£c-LiSTt psr-file» number-pile, 
enter compass* allocate* 

PRIM-SEC-LIST. ♦300* 

PSH-FlLt, +100, 

NUMbER-FTLt, +100. 

open output PhIM-SFC-LIST. PSR-FILE. number-file. 

MOVE BKI-ChO IC prim-key, PSR-KEYt NUM-KEY. 

MOVE U-BIAS 10 BIAS, 

MOVE 101 TO NU|vi-EXPAND. 

write NUMBER-kEC from NUMbER-FILE-STORAQE 
invalid key perform program-bug. 

PERFORM NUM-KEY-UPDaTE. 
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01530 

01531 

01532 

01533 

01534 

01535 

01536 

01537 

0153H 

01539 

01540 

01541 

0154? 

01543 

01544 

01545 

01546 

01547 

01548 

01549 

01550 

01551 

0155? 

01553 

01554 

01555 

01556 

01557 

01558 

01559 

01560 

01561 

01562 

01563 

01564 

01565 

01566 

01567 

01568 

01569 

01570 

01571 

01572 

01573 

01574 


NUM-f ILE-ZERO, 

CLOSE NUMBER-PILE, 

MCvyE * PSH FILE header?^ TO P-F-H-S-H. 

PF9FCRM PSR-^fcY-UPOATE. 

MOVE UP-KEY TO EMPTy-PSR-FIL£» FIRST-PSR-EnT. 
move 10100000 TO psr-fxpamd. 
write RSR-FIlF-REC FPCW PSR-FILE-HEADER-STORAGE 
TNVAlIO KtY deRFCRM PRcGRAM-BUG. 
move spaces re PSR-FILE-HEADEP-STORAGE. 

MOVE UP-KEY 1C PSR-KEY. 
perform pSR-r- ilf-fmpfy. 
close PSR-FIlL. 

MC\/F ^ list pile header^ to h-r-s. 
move prim-key to h-p-s-sak. 

PERFORM PRIm-^EY-UPDaTE. 

MOVE up-key 10 PLM-SAK* PRiM-KEY. 

PERFORM PRIM-KEY-UPDATF. 

MOVE UP-KEY re EMPTY-HFAO-rEC. 
move 30100000 TO PPIM-FXPAnD. 

move uKi-CHQ 10 prim-key. 

write HEaDEP-RECORO from HE4DER-REC0RD-ST0RAGE 
invalid Kr-Y PERFORM PROGRAM-BUG. 

MOVE PLH-SAK TO PRIM-KEY. EMPTY-HEAD-REC. H-R-S-SAK, 

move -^epo to prim-expano. 

move F primary PRCOUcF LTST?t TO H-R-S, 

V/RITE header-record FROM MEAnER-RtCORD-STCRAGE 
invalid KEY perform prOGRAm-mUG, 

MOVE SPACES TO HEADEP-RECOhO. 

PERFORM PRIM-KEY-UpOaTf, 

MOVE UP-KEY ro PPTM-KEY. 

MOVE 3010000!^’' TO PRIM-EXPANO. 

PEPFORMi LiST-r ilE-EMPTY. 

CLOSE prim-sec-list. 

PC TO U-PROC-1. 
collect section, 
coll-bfgin. 

OPc-N I-O PRIM-SFC-LI5T» PSR-FILE» NUMBER-FILE. 

MOVE HKl-CHO TO priM-Kcty. o-KEY» NUM-KEY. 
read PRlM-SEC-LlST In re HEADER-RECORO-STCRAGE 
invalid Kr, Y PERFORM PROGRAM-BUG, 

read number-file into NUMHER-FILE-STGRAGE invalid key perform 

PpOGRAivt-R.JG 

move PR1M-£XP*^ND To ijp-kfy. 

SURTRACT 1 FROM U-BLK. 

SUBTRACT i FROM NUM-FXPAND GIVING 8LK, 
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01575 

01576 

01577 

01578 

01579 

01580 

01581 

01582 

01583 

01584 

01585 

01586 

01587 

01588 

01589 

01590 

01591 

01592 

01593 

01594 

01595 

01596 

01597 

01598 

01599 

01600 

01601 

01602 

01603 

01604 

01605 

01606 

01607 

01608 

01609 

01610 

01611 

01612 

01613 

01614 

01615 

01616 

01617 

01618 

01619 


ENTER compass* ALLOCATE* P-S-LIST* U-BLK* 

N-FIlE* BLK. 

OPEN I-O P-S-LIST, 

OPEN OUTPUT N-FILE. 

COLL-PRIMARY. 

move plh-sak to prim-key. 
perform p-key-upoatf, 

MOVE up-key to PLH-SAK. 

WRITE T-RtC-2 FROM HEAOER-RECCRD-STCRAGE 
INVALiU KEY perform pROGRAM-BUG, 

READ PHIM-SEC-LIST INVALID KEY PERFORM PROGRAM-BUG* 
IF FOR'^ARU-LIiNiK = backward-link AND HEADER-SAK 
GO TO COLL-NUM-EnO. 

MOVE forward-link TO PRIM-KEY. 
move BACkWARD-LINK to TEM-KEy-I. 

MOVE UP-KEY TO P-KEY, HEAOER-SAK, TEM-KEY-2 

perform p-key-update. 
move up-key to FORWARU-LTWK. 
write T-REC-2 from PRIMARY-RFCORD 
invalid key perform ppogram-bug. 

CCLL-PRlM-1. 

IE PRIM-KEY = TEM-KFY-1 GO TO COLL-PRIM-H, 

PEAO PRIM-SEC-LIST INVALID KEY PERFORM PROGRAM-BUGi 
MOVE FORWARD-LINK TO PRiM-KEY. 
move p-key to backward-link. 

MOVE TEM-KEY-2 TO HEADER-SAK* 

MOVE up-key to P-key. 
perform p-key-update. 

MOVE up-key tc forward-ltnk. 

WRITE T-REC-? FROM PRIMARY-RECCRD 
invalid key perform PROGRAM-bUQ. 

GO TO CCLL-PRIM-1, 

CCLL-PRlM-2. 

READ prim-sec-list INVALID KEY PERFORM PROGRAM-BUG. 
MOVE p-key to backward-link, 
move TEM-KEY-2 to FORWaRO-LINK, HEADER-SAK. 
move UP-KtY TO P-KFY* TEm-KEy-T. 

WRITE T-REC-2 from PRIMARY-RECORD 
INVALID KEY PERFORM pROGRAM-BUG. 

MOVE TEM-KEY-2 TO P-kEY. 
read P-S-LIST into PRIMARY-RECCRD 
invalid key perform PROGRAM-BUQ. 

MOVE tem-key-^ TO backward-link. 

WRITE T-PEC-2 from PRImARY-RECORD 

invalid key dprfqRm program-bug. 
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01620 
01621 
01622 
01623 
01624 
01625 
01626 
01627 
01628 
01629 
01630 
01631 
01632 
01633 
01634 
01635 
01636 
01637 
01638 
01639 
01640 
01641 
01642 
01643 
01644 
01645 
01646 
01647 
01648 
01649 
01650 
01651 
01652 
01653 
01654 
01655 
01656 
01657 
01658 
01659 
01660 
01661 
01662 
01663 
01664 


MOVE FORWARD-LINK TO R-Kf^Y* TEM-KEY-6, 
move HEADER-SAK to TFVi-KFY-2. 

CCL.L-SEC-1 • 

IF P-KEy = TEM-KEY-? 60 TO CCLL-SEC-DONE. 

READ P-S-LIST INTO PRIMARY-RECORDT 

invalid key perform program-bug, 

IE MASTeR-SAKT s zero go To C0lL-SEC^2. 
move 1 To I. 

MOVE TEM-KEY-/ to P-KEY. 
perform P-KEY-UPDATE. 
move MASTER-8AKT TO PRiM-KEY. 
move up-key to MASTER-SAkT. 
perform LIST-LCLLECT. 

COLL-SFC-2. 

IF MSOS-SAKT = ZERO GO TO COLL-SEC-3. 
move 2 To I. 

MOVE tem-key-/ to P-KF.Y, 
perform p-key-update, 
move mSOS-SAkT to prim-key. 
move up-key to MsOS-eAKT, 
perform list-collect. 

COLL-SFC-3. 

IF rTS-sAKT = ZERO GO To CCLL-SEC-a, 

MOVE 3 To I. 

MOVE tem-key-/ to P-kEv. 
perform p-key-update. 

MOVE RTS-SAKT to PRiM-KEY. 
move up-key to RTS-SAKT. 
perform list-collect, 

COLL-SEC-4. 

MOVE TEM-KEY-6 to p-KEY. 

WRITF T-REC-2 from PWIMaRY-RECCRDT 
invalid key perform program-rug. 
move FOH-LINKT to P-kEY, TEM-KeY-6. 

GO 70 COLL-SEC-1, 

coll-sfc-dcne. 

MOVE TEM-KEY-/ TO P-KEY, 
perform P-key-update, 

MOVE up-key to empty-heao-hec. 
move BKl-CHO TO PRIM-KEY, 

WRITE header-record FROM HEADER-RECORD-STORAGE 
invalid key perform PRCGRaM-bUG. 

MOVE PLH-SAK 10 P-KEY. 

COLL-SEC-DONF-1. 

IF P-KEy = EMPTY-HEAD-REC go to COLL-SEC-OCNE-2, 



01665 

01666 

01667 

01668 

01669 

01670 

01671 

01672 

01673 

01674 

01675 

01676 

01677 

01678 

01679 

01680 

01681 

01682 

01683 

01684 

01685 

01686 

01687 

01688 

01689 

01690 

01691 

01692 

01693 

01694 

01695 

01696 

01697 

01698 

01699 

01700 

01701 

01702 

01703 

01704 

01705 

01706 

01707 

01708 

01709 

01710 


PEPFCRM PRIM-KEY-UPOaTE, 

MOVE up-key to prtm-key. 

READ P-S-lIST into PRIMARY-RECORD 

invalid key perform program-bug# 
perform p-key-upoate# 
move up-key to p-key# 

GO TO COll-SEC-DONE-1• 

CCLL-SEC-DCNE-2. 

move spacls to header-record# 
perform list-file-empty# 

CLOSE prim-sec-list* P-S-LIST# 

IF U-BIaS not equal to spaces go to COLL-NUM*^ENb* 
WRITE T-REC-1 from NUMBER-FILE-STORaGE 
invalid key perform program-bug# 

C0LL-M(JM-1. 

perform MUM-kEY-UPDATE# 

READ number-file INVALID KEY GO TO COLL-NUM-END* 

IF NUMBER-REC not = ZERO 60 TO COLL-NUM-?# 
add 1 TO BIAS. 

GO TO CCLL-NIJM-I. 

CCLL-NuM-2# 

WRITE T-REC-1 FROM NUMbER-REC 

invalid key perform program-bug# 

IF NUM-KEY-I = NUM-eXPANO Go to COLL-NUM-3* 
PFRFORM NUM-KEY-UPDATE# 

PEAD number-file INVALID KEY PERFORM PROGRAM*0U64 
GO TO COlL-NUM-2. 

COLL-NljM-3. 

MOVE zero to -'jUMBER-REC# 

WRITE T-REC-1 from NUmbER-REC 
invalid KtY GO To CCLL-NUM-4# 

GO TO CClL-NUM-3# 

COLL-NuM-4. 

CLOSE N-FILE, 

Oi^FN INPUT N-FlLE. 

read n-file at end perform program-bug* 

MOVE BKl-CHO rC NUM-kEY. 

WRITE NUMBER-REC FROm NUMBER-FILE-STORAGE 
invalid key perform program-bug# 

COLL-NUM-5. 

perform NUM-KEY-UPDATE. 

IE NUM-kEY = NUM-EXPAND GO TO CCLL-NUM-ENO* 
read n-file at end perform program-bug. 

GO TO COLL-NUM-6. 
ccll-num-eno. 

close number-file# N-FILF,, 
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01711 

01712 

01713 

01714 

01715 

01716 

01717 

01718 

01719 

01720 

01721 

01722 

01723 

01724 

01725 

01726 

01727 

01728 

01729 

01730 

01731 

01732 

01733 

01734 

01735 

01736 

01737 

01738 

01739 

01740 

01741 

01742 

01743 

01744 

01745 

01746 

01747 

01748 

01749 

01750 

01751 

01752 

01753 

01754 

01755 


enter compass* RLEASF* P-S-LIST, n-file. 

00 TO U-PKOC-1, 

list^collect section. 

lc-1. 

READ PRIM-SEC-LIST INVALID KEY PERFORM PROGRAM-BUG. 

move tem-key-o to header-link. 

IF FORWARO-I.INK = backward-link AND HEADER-SAK 

MOVE up-kly to foRwaro-link, backward-link* 
HEAOER-SAK, p-key, TEM-KEY-7 go to LC-E. 
move BACKwAhO-LInK to TEM-KEy-5. 

MOVE UP-KEY TO P-KFY. HEAOER-SAK, TEM-KEY-4. 

PERFORIN P-KEY-UPDaTF. 

move FCRwAHD-LINK to prim-key. 

MOVE UP-KEY ro FOPWaRD-LTNK, 

WRITE T-REC-2 from secondary-record 
invalid key perform program-bug, 

LC-2. 

IF PRIM-KEY = TEM-KfY-5 GO TO LC-3. 

READ PRIm-SEC-LIST INVALID KEY PERFORM PROGRAM-BUG. 

MOVE fcrward-link to prim-key. 
move p-key To backwaro-link. 

MOVE up-key ro p-key. 

PEPFOR^i P-KEY-UPOATE. 
move UP-KhY TO FORWARU-LIMK. 
move TEM-KEY-4 TO heaoer-sak. 
write T-RF.C-2 from SEcONDaRY-RECCRD 
invalid key perform program-bug. 
move psh-sak fo pSR-kEY. 

read pSR-FILE invalid KEY PERFORM PROGRAM-BuG. 

MOVE P-KFY to OP-kEY (I). 

WRITE PSr-FILE-REC INVALID KEY PERFORM PROGRAM-BtJG 
GO TO LC-2. 

LC-3. 

READ PRIM-SEC-LIST INVALID KEY PERFORM PROGRAM-BUG. 
move TEM-KEY-4 to forward-link, HEADER-SAK. 

move P-key to backward-link, 
move up-key to P-KFY, TEM-KEy-7. 

WRITE T-REC-2 from SECONDAWY-RECCRO 
invalid key perform program-bug, 

MOVE PSR-SAK to PSR-KEY, 

READ PSR-FIlE invalid KEY PERFORM PROGRAM-BUG. 
move P-KEY ro CP-KFY (I). 

write PSR-FILE-REC invalid key perform program-bug. 

MOVE TEm-KEY-4 to p-key, 

read p-s-list into secondary-record 



01756 

01757 

01758 

01759 

01760 

01761 


invalid KtY PEPFcHm PP06pAM-8Ui3# 
MOVE TEM^KEY-/ to PACi<\«iARO-‘LlNK. 

LC-E. 

WRITE T-Rec-2 FROM SECONDARY-ReCORD 
invalid (^ey perform PRoGRAM-BUQ 

END program. 



THE COBOL LANGUAGE 


B 


COBOL CHARACTER SET 

The characters recognized by COBOL include the letters of the alphabet, digits, and those characters, 
commonly called symbols, which are used in expressions, relations and editing. The complete 
computer character set consists of the 63 characters listed in the COBOL collating sequence 
(appendix D). 


Character Set for Words 

Letters A-Z, digits 0-9, and hyphen (-) 


Character Set for Punctuation 

, comma 

; semicolon 

period 

” quotation mark 

( left parenthesis 

) right parenthesis 

space 

Character Set for Arithmetic Operators 

+ addition 

subtraction 
* multiplication 

/ division 

** exponentiation 
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Character Set for Relational Operators 


> greater than 

< less than 

= equal to 

Character Set for Editing 


B 

space 

0 

zero 

+ 

plus 

- 

minus 

CR 

credit 

DB 

debit 

Z 

zero suppress 

♦ 

check protect 

$ 

currency sign 

> 

comma (decimal point) 

• 

period (decimal point) 

/ 

slash 


WORDS 

A word is composed of a combination of not more than 30 characters chosen from the character set 
for words. The word cannot begin nor end with a hyphen. The space character is not allowed in a 
word; the space is a word separator. Wherever a space is used, more than one may be used. A 
word is ended by a space, or by a period, right parenthesis, comma, or semicolon followed by a 
space. A space must not immediately follow a left parenthesis or a beginning quotation mark. A 
space must not immediately precede a right parenthesis or an ending quotation mark except when 
the space is included in a literal. 

Words are specified by the user or they are COBOL reserved words. User-defined words include 
all names assigned by the user to elements in the program; they must never be from the set of 
COBOL reserved words. 

Literals are also considered user-defined words, but they are not restricted to the limits imposed 
on other words. 
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Data Name 


A data name is a word containing at least one alphabetic character. It names a data item in the Data 
Division (file names, library names, mnemonic names, report names are all formed like data 
names; their functions are defined in context.) 

Examples: 

QUANTITY-ON-HAND MESSAGE 

LAST-YEAR-PROFIT lOOA 

ITEM-NUMBER FILE-1 


Condition Name 

A condition name is assigned to a value, set of values or range of values, within the complete set of 
values that a data item may assume. The condition name must contain at least one alphabetic char¬ 
acter. Each condition name must be unique, or be made unique through qualification. The associ¬ 
ated data item may be the qualifier for any of its condition names. If references to this data item 
require indexing, subscripting or qualification, references to any of its condition names require 
the same combination of indexing, subscripting or qualification. x ^ 'f- 

Example: 




U A*' 


GRADE 


88 GRADE-ONE VALUE IS 1. 

88 GRADE-TWO VALUE IS 2. 

88 GRADE-SCHOOL VALUES ARE 1 THRU 6. 
88 JUNIOR-HIGH VALUES ARE 7 THRU 9. 

88 HIGH-SCHOOL VALUES ARE 10 THRU 12. 
88 GRADE-ERROR VALUES ARE 13 THRU 99. 


A condition name may be used in conditions as an abbreviation for the relation condition. For 
example: IF GRADE-ONE ... 


Procedure Name 

A procedure name identifies a paragraph or a section in the Procedure Division. A procedure name 
may be composed solely of numeric characters. Two numeric procedure names are equivalent 
only if they are composed of the same number of digits and have the same value; 0023 is not 
equivalent to 23. 

Examples: 

PROC-1. A-INPUT SECTION. 

002. 100 SECTION. 
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Identifier 


An identifier is a data name followed, as required, by the syntactically correct combination of 
qualifiers, subscripts, or indexes necessary to make unique reference to a data item. 

Examples: 

DAY OF MASTER-DATE 
FIRST IN GRADE-ONE 
MALE-FEMALE (2,5,1) 


(^alifier 

Every name in a source program must be unique, either because no other name has the identical 
spelling, or because the name exists within a hierarchy of names, such that it can be made unique 
by mentioning one or more of the higher levels of the hierarchy. The higher levels are called 
qualifiers when used in this way. The qualification process is performed by writing IN or OF after 
the name followed by a qualifier. The choice between IN or OF is based on readability; they are 
logically equivalent. Only sufficient qualification must be mentioned to make the name unique. 
Whenever the data item or paragraph is referenced, any necessary qualifiers must be written as 
I)art of the name. 


Literal 


A literal is a string of characters. Literals may be numeric or non-numeric. 

Non-Numeric Literal 

A non-numeric literal is a string of any characters allowable in the computer's character set 
(including reserved words but excluding the quotation mark) and bounded by quotation marks. The 


IX.U.V' v/x 


a non~numeric literal is the string of characters itself, excludmg the quotation marka. 


Any spaces included between the quotation marks are part of the non-numeric literal and, therefore, 
are part of the value. All non-numeric literals are classed as alphanumeric. They may contain 
from 1 to 120 characters excluding the quotes. 


Examples of non-numeric literals: 


"LINE-COUNTER" 

"PAGE 144 IS MISSING" 

"ABODE F" 

"-125.56" 

"PAGE NUMBER IS " 

The literal "-125. 56" is not the same as the literal -125. 56; the quotation marks make it a non- 

niimATlI? lit.f'l'nl anH r\T*0'»7C»ri+ if ■fl'rvm fr\-r> 

^AV JL. W>V/XXJ VCX VXV/AA • 
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Numeric Literal 


A numeric literal is a string of characters chosen from digits 0 thru 9, the plus sign, the minus sign 
and the decimal point. Its value is the algebraic quantity represented by the characters in the 
literal. Every numeric literal is in the numeric category. 

Rules for forming numeric literals: 

• It must contain at least one and not more than 18 digits. 

• It can contain only one sign character. If a sign is used, it must appear as the leftmost 
character of the literal. An unsigned literal is positive. 

• It can contain only one decimal point. The decimal point is treated as an assumed decimal 
point, and may appear anywhere in the literal except as the rightmost character. A literal 
without a decimal point is an integer. 

If a literal conforms to the rules for forming a numeric literal, but is enclosed in quotation marks, 
it is a non-numeric literal. 

Examples of numeric literals: 

15067893251459 

-12572.6 

+25675 

1435.89 

Floating Point Literal 

A floating point literal is a numeric literal written in the following form. 

[±]coefficient E j±] exponent 
Rules for floating-point literals: 

3 G 

• The coefficient may have from one to eleven digits in the range of 0 ^ n^ 2 -1 and a 

decimal point. 

• The coefficient is followed immediately by the symbol E, followed by an optional plus or 
minus sign, followed by one to three numeric digits which indicate the power of the ex¬ 
ponent. A zero exponent may be written as 0, 00, or 000. An unsigned exponent is 
assumed to be positive. The exponent is to the base 10 and may range from 0 through 308. 

• The plus and minus signs preceding the coefficient and exponent are optional. All other 
elements of the format are required. 

• A floating point literal must appear as a continuous string of characters with no intervening 
spaces. 
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Examples 


15.2E5 

12.4E10 

-.425E101 

+30E-101 

60.5E0 


+2,725E-6 

-4.0E+12 

-5.124E-20 

405E+305 

.68719476735E308 


Reserved Words 


Reserved words defined in appendix C are used for syntactical purposes and may not appear as 
user-defined words. Reserved words are used as key words, optional words, and connectives. 


Key Word 

A word that is required when it appears in a source program format is called a key word. Within 
each format, key words are uppercase and underlined. All verbs, for example, are key words 
which must be included to designate the operation to be performed. 


Optional Words 

Uppercase words in a format that are not underlined are called optional words since they may appear 
or not as the user chooses. The presence or absence of each optional word within a format does not 
affect the compiler's translation. An optional word must not be misspelled or replaced by another 
word not explicitly stated to be its equivalent. 


Special Registers 

The word TALLY is the name of a special register implicitly described as a five-digit integer. 
TALLY is used primarily to hold information produced by the EXAMINE statement. TALLY may 
also be used as a data name wherever an elementary data item of integral value may appear. 

The special registers SYSTEM-DATE and SYSTEM-TIME are restricted for use as the subjects of 
MOVE statements in the Procedure Division and the objects of SOURCE clauses in the Report Section 
of the Data Division; they may not be used as literals. In a MOVE statement, the receiving field 
must have a PICTURE of X(8). Likewise, in the Report Section, the elementary item description 
containing the SOURCE clause must have a PICTURE clause of X(8). 

SYSTEM-DATE represents the current date in the form mm/dd/yy: mm = month, dd = day, 
yy ~ year. SYSTEM-TIME represents the time of day when the object program begins execution. 

Its format is hh/mm/ss: hh = hour, mm == minute, ss = second. 
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Figurative Constants 


Certain constants, called figurative constants, have been assigned fixed data names. Figurative 
constants must not be boimded by quotation marks, or they become non-numeric literals. The 
singular and plural forms of figurative constants are equivalent and may be used interchangeably. 


Figurative Constant 


Meaning 


ZERO 

ZEROS 

ZEROES 

SPACE 

SPACES 

HIGH-VALUE 
HIGH-VA LUES 


Represents the value 0, or one or more of the character 0, depending 
on context. 


Represents one or more blanks or spaces. 


Represents one or more of the character with the highest value in 
the COBOL collating sequence. 


LOW-VALUE 

LOW-VALUES 


Represents one or more of the character with the lowest value in 
the COBOL collating sequence. 


QUOTE 

QUOTES 


ALL literal 


Represents one or more of the character " or the character sub¬ 
stituted for it on computers that do not use a quotation mark. The 
word QUOTE cannot be used in place of a quotation mark in a source 
program to bound a non-numeric literal. 

Represents one or more of the string of characters comprising the 
literal. The literal must be either a non-numeric literal or a figura¬ 
tive constant other than ALL literal. When a figurative constant is 
used, the word ALL is redundant and may be used for readability 
only. 
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When a figurative constant represents a string of one or more characters, the length of the string is 
set by the compiler according to the following rules: 

• When the figurative constant is moved to or compared with another data item, its character 
string is repeated character by character on the right until the size of the resultant string 
is equal to the size in characters of the associated data item. 

• When the figurative constant appears in a DISPLAY, EXAMINE or STOP statement, the 
length of the string is one character. ALL literal may not be used with DISPLAY, 
EXAMINE or STOP. 

A figurative constant can be used any place where a literal appears in the format. When the literal 
is restricted to numeric characters, ZERO (ZEROS) (ZEROES) is the only figurative constant per¬ 
mitted. 


Examples: 

MOVE QUOTES TO AREA-A 


DISPLAY QUOTE "NAME” QUOTE 
MOVE SPACES TO TITLE 

MOVE ALL "4" TO COUNT-FIELD 


Assuming AREA-A consists of five character positions, 
this statement moves the configuration to 

AREA-A. 

This statement results in "NAME" being displayed. 

The item named TITLE is set to all spaces (or 
blanks). 

Assuming COUNT-FIELD has a picture of X(4), a 4 
is placed in each position of the item named COUNT- 
FIELD. 


IF ALL "4" IS EQUAL TO COUNT-FIELD... Assuming COUNT-FIELD has a picture of 9(4) or 

X(4), this compares 4444 with the value of COUNT- 
FIELD. 


MOVE ZEROS TO REGISTER 


This places 0 in each position of the item named 
REGISTER. 


MOVE ALL "NO-OP" to EMPTY Assuming EMPTY consists of 12 character positions, 

EMPTY is filled with repetitions of the characters of 
the non-numeric literal, NO-OPNO-OPNO. 
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Connectives 


There are three types of connectives: 


• Qualifiers used to associate a data name or paragraph name with its qualifier: OF, IN. 

• A series connective that links two or more consecutive operands: , (comma) or two or 
more consecutive clauses: ; (semicolon). 

• Logical connectives used in the formation of conditions: AND, OR, AND NOT, OR NOT. 
Examples: 

A IS GREATER THAN B 
A IS GREATER B 
A GREATER THAN B 
A GREATER B 


All these eApiessiuns are eOi leet End have the same meaning whether 


THAN are used or not. 


PUNCTUATION 

The punctuation symbols, period, comma, and semicolon, are shown within the formats. All division 
and section headers are followed by a period with the remainder of the line blank. Specific rules for 
each division follow: 

Identification Division : Commas and semicolons may be used for readability within comment 
paragraphs; they are not shown in the formats. Each paragraph and paragraph name must be 
terminated by a period followed by a space. 

Environment Division: Commas and semicolons shown in the formats are optional. Each 
paragraph and paragraph name must terminate with a period followed by a space. 

Data Division : Commas and semicolons shown in the formats are optional. Each file and data 
description entry must be terminated by a period. 

Procedure Division : Commas shown in the formats are optional. A semicolon may be used 
between statements in a sentence. In addition, the semicolon may appear in an IF statement 
immediately following the condition and also immediately preceding the keyword ELSE. Each 
sentence must be terminated by a period and a space. Procedure names are terminated by a 
period and one or more spaces. 
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When a period, semicolon, or comma is used, it immediately follows a word and must be immediately 
followed by a space. A beginning quotation mark is followed by a space nor is an ending quotation 
mark preceded by a space unless the space is part of the nonnumeric literal. A left parenthesis is 
followed by a space only when followed by + - (; in these cases a space is required. A right 
parenthesis is preceded by a space only when it is preceded by a ). A right parenthesis is always 
followed by a space. Parentheses must be paired. 
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COBOL RESERVED WORD LIST 


C 


ACCEPT 

ACCESS 

ACCESS-PRIVACY 

ACTUAL 

ADD 

ADDRESS 

ADVANCING 

AFTER 

ALL 

ALPHABETIC 

ALPHANUMERIC 

ALTER 

ALTERNATE 

AND 

ARE 

AREA 

AREAS 

ASCENDING 

ASSIGN 

AT 

AUTHOR 

BEFORE 

BEGINNING 

BINARY 

BLANK 

BLOCK 

BY 


CH 

CHARACTERS 

CLOSE 

COBOL 

CODE 

COLUMN 

COMMA 

COMMON-STORAGE 

COMP 

COMP-1 

COMP-2 

COMPASS 

COMPUTATIONAL 

COMPUTATIONAL-1 

COMPUTATIONAL-2 

COMPUTE 

CONFIGURATION 

CONSOLE 

CONTAINS 

CONTIGUOUS 

CONTROL 

CONTROLS 

COPY 

CORR 

CORRESPONDING 

CRT 


CURRENCY 

DATA 

DATE-COMPILED 
DATE-WRITTEN 
DE 

DECIMAL 

DECIMAL-POINT 

DECLARATIVES 

DENSITY 

DEPENDING 

DESCENDING 

DETAIL 

DISK 

DISPLAY 

DivroE 

DIVISION 

DOWN 

EDITION-NUMBER 

ELSE 

END 

ENDING 

ENTER 

ENVIRONMENT 

EQUAL 

EQUALS 

ERROR 

EVERY 


EXAMINE 

EXIT 

FD 

FILE 

FILE-CONTROL 

FILE-LIMIT 

FILE-LIMITS 

FILLER 

FINAL 

FINIS 

FIRST 

FOOTING 

FOR 

FORTRAN 

FROM 

GENERATE 

GIVING 

GO 

GREATER 

GROUP 

HEADING 

HIGH 

HIGH-VALUE 

HIGH-VALUES 

HOLD 

HYPER 

I-O 
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I-O-CONTROL 

LOW-VALUES 

PIC 

REPORTS 

ID 

MEMORY 

PICTURE 

RERUN 

IDENTIFICATION 

MODE 

PLUS 

RESERVE 

IF 

MODIFICATION-PRIVA CY 

POSITION 

RESET 

IN 

MODULES 

POSITIVE 

RETENTION-CYCLE 

INDEX 

MOVE 

PRINTER 

RETURN 

INDEXED 

MULTIPLE 

PROCEDURE 

REVERSED 

INDICATE 

MULTIPLY 

PROCEED 

REWIND 

INITIATE 

NEGATIVE 

PROCESS 

RF 

INPUT 

NEXT 

PROCESSING 

RH 

INPUT-OUTPUT 

NO 

PROGRAM-ID 

RIGHT 

INSTALLATION 

NOT 

PUNCH 

ROUNDED 

INTO 

NOTE 

QUOTE 

RUN 

INVALID 

NUMBER 

QUOTES 

SA 

IS 

NUMERIC 

RANDOM 

SAME 

JUST 

OBJECT-COMPUTER 

RD 

SCRATCH 

JUSTIFIED 

OCCURS 

READ 

SD 

KEY 

OF 

READER 

SEARCH 

KEYS 

OFF 

RECORD 

SECTION 

LABEL 

OMITTED 

RECORDING 

SECTOR 

LAST 

ON 

RECORDS 

SECURITY 

LEADING 

OPEN 

RECORD-MARK 

SEEK 

LEFT 

OPTIONAL 

REDEFINES 

SEGMENT-LIMIT 

LESS 

OR 

REEL 

SEGMENTED 

LIMIT 

OUTPUT 

REEL-NUMBER 

SELECT 

LIMITS 

OWNER 

RELEASE 

SENTENCE 

LINE 

OWNER-ID 

REMARKS 

SEQUENCED 

LINE-COUNTER 

PAGE 

RENAMES 

SEQUENTIAL 

LINES 

PAGE-COUNTER 

RENAMING 

SET 

LOCK 

PERFORM 

REPLACING 

SIGN 

LOW 

PF 

REPORT 

SIZE 

LOW-VALUE 

PH 

REPORTING 

SORT 
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SOURCE 

SOURCE-COMPUTER 

SPACE 

SPACES 

SPECL4L-NAMES 

STANDARD 

STATUS 

STOP 

SUBTRACT 

SUM 

SYNC 

SYNCHRONIZED 

SYSTEM-DATE 

SYSTEM-INPUT 

SYSTEM-OUTPUT 

SYSTEM-PUNCH 

SYSTEM-TIME 

TALLY 

TALLYING 

TAPE 

TERMINATE 

THAN 

THEN 

THROUGH I 

> equivalent 
THRU j 

TIMES 

TO 

TRACE 

TRACK 

TTY 

TYPE 

UNEQUAL 


UNIT 

UNTIL 

UP 

UPON 

USAGE 

USE 

USING 

VALUE 

VALUES 

VARYING 

WHEN 

WITH 

WORDS 

WORKING-STORAGE 

WRITE 

ZERO 

ZEROES 

ZEROS 
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COBOL COLLATING SEQUENCE 


The following table shows the relationship between characters of the COBOL set and their equivalent 
machine, printer, and pimched card codes. They are listed according to ascending collating se¬ 
quence. The COBOL quote (”) character is represented as a not-equal-to (^) sign on the printer. 

The 4-8 multiple punch must be used to represent the quote in a COBOL source card. 


Characters shown with an asterisk are not available in COBOL source language but would be treated 
in the sequence indicated if present in data. 


Collating 

Sequence 

Internal 

Code 

External 

Code 

Printer 

Character 

Cards 

Character 

Punch 

00 

60 

20 

A 

A 

blank 

01 

15 

15 



8,5 

02 

16 

16 

%* 


8,6 

03 

17 

17 

[* 


8,7 

04 

75 

35 



o 

00 

cn 

05 

76 

36 

=* 


0,8,6 

06 

77 

37 

A * 


o 

00 

07 

55 

55 



11,8,5 

08 

56 

56 

1* 


11,8,6 

09 

57 

57 

> 


11,8,7 

10 

35 

75 



12,8,5 

11 

36 

76 

”1 


12,8,6 

12 

33 

73 

• 

. 

12,8,3 

13 

34 

74 

) 

) 

12,8,4 

14 

37 

77 

9 


12,8,7 

15 

20 

60 

+ 

+ 

12 

16 

53 

53 

$ 

$ 

11,8,3 

17 

54 

54 

* 

♦ 

11,8,4 

18 

40 

40 

- 

- 

11 

19 

61 

21 

/ 

/ 

0,1 
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Collating 

Sequence 

Internal 

Code 

External 

Code 

Printer 

Character 

Cards 

Character 

Punch 

20 

73 

33 

9 

9 

00 

00 

o 

21 

74 

34 

( 

( 

0,8,4 

22 

13 

13 

= 

= 

8,3 

23 

14 

14 


(dash) 

8,4 

24 

32 

72 

< 

+0* 

12,0 

25 

21 

61 

A 

A 

12,1 

26 

22 

62 

B 

B 

12,2 

27 

23 

63 

C 

C 

12,3 

28 

24 

64 

D 

D 

12,4 

29 

25 

65 

E 

E 

12,5 

30 

26 

66 

F 

F 

12,6 

31 

27 

67 

G 

G 

12,7 

32 

30 

70 

H 

H 

12,8 

33 

31 

71 

I 

I 

12,9 

34 

52 

52 

V* 

-0* 

11,0 

35 

41 

41 

J 

J 

11,1 

36 

42 

42 

K 

K 

11,2 

37 

43 

43 

L 

L 

11,3 

38 

44 

44 

M 

M 

11,4 

39 

45 

45 

N 

N 

11,5 

40 

46 

46 

0 

0 

11,6 

41 

47 

47 

P 

P 

11,7 

42 

50 

50 

Q 

Q 

11,8 

43 

51 

51 

R 

R 

11,9 

44 

72 

32 

]‘ 


0, 8,2 

45 

62 

22 

S 

s 

0,2 

46 

63 

23 

T 

T 

0,3 

47 

64 

24 

U 

U 

0,4 

48 

65 

25 

V 

V 

0,5 
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Collating 

Sequence 

Internal 

Code 

External 

Code 

Printer 

Character 

Cards 

Character 

Punch 

49 

66 

26 

W 

W 

0,6 

50 

67 

27 

X 

X 

0,7 

51 

70 

30 

Y 

Y 

0,8 

52 

71 

31 

Z 

Z 

0,9 

53 ) 


00 

:* 









53) 

00 

12 

0 

0 

0 

54 

01 

01 

1 


1 

55 

02 

02 

2 

2 

2 

56 

03 

03 

3 

3 

3 

c.n 

{\A 

n A 




tJ 1 

vrt 

vt 




58 

05 

05 

5 

5 

5 

59 

06 

06 

6 

6 

6 

60 

07 

07 

7 

7 

7 

61 

10 

10 

8 

8 

8 

62 

11 

11 

9 

9 

9 


t Within the COBOL Collating sequence, external codes of 00 and 12 are the same. 
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STANDARD FILE LABELS 


E 


This appendix illustrates the standard file labels used with COBOL systems. The mass storage 
file label is maintained by MASTER, and cannot be accessed by the user. The field lengths 
specified in this appendix for standard label fields should be observed in the VALUE OF phrase 
associated with the LABEL RECORDS ARE STANDARD clause. 


MASS STORAGE FILE LABEL 


1 

Owner 

3 










File name 







Edition 

11 

Access privacy 


Modification privacy 

13 


No. 

allocated blocks 


* 

Block size 

15 

Block count 


Usage count 

17 

Creation date 


Expiration date 

19 

Last access date 


DT 

SC 

P 

* 

21 

DTM 

♦ 



♦ 

♦ 


♦ 

♦ 




* 

23 

File size 


* Denotes Reserved 

These three words are 
repeated for each 
segment of the fRe. 
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FIELD NAME 


SIZE 


DESCRIPTION 


File Identifier 


Access Privacy 

Modification 

Privacy 

No. Blocks 
Allocated 

Block Size 

Block Count 

Usage Count 

Creation Date 

Expiration Date 

Last Access Date 


40 characters Uniquely identifies a file in label directory. 

The standard identifier consists of: 

Owner Identification - 8 characters 
File Name - 30 characters 
Edition Number - 2 characters 

The 40-character field may be divided in 
other ways at installation option. 

4 characters Supplied when file is allocated and must be 

supplied for each succeeding OPEN request. 

4 characters Supplied when file is allocated and must be 

supplied for each RELEASE, EXPAND, and 
MODIFY request. 

24 bits Binary integer giving the number of blocks 

allocated to the file. 

18 bits Binary integer indicating number of 6-bit 

characters in each record block 
(0 < block size < 131072). 

24 bits Binary integer, highest block number 

written. If file is processed sequentially, 
this is the number of blocks written into the 
file (0 — block count < 223). 

24 bits Binary count of number of times file has 

been opened. 

24 bits Date in the form yymmdd, stored as a binary 

integer, supplied by I/O system when file 
is allocated. 

24 bits Date in the form yymmdd, stored as a 

binary integer, supplied by user when the 
file is allocated. This field determines 
when a file may be deleted. 

24 bits Date in the form yymmdd, stored as a 

binary integer, supplied by I/O system 
each time file is opened or changed. 
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FIELD NAME 


SIZE 


DESCRIPTION 


DT (device type) 


SC (segment count) 


P (protection) 


DTM (device type 
modifier) 


File Size 


Next Available 
SAK 

RM (record mark) 


1 character 


6 bits 


1 character 


1 character 


24 bits 


8 characters 


1 character 


6-bit code to indicate type of mass storage 
device: 

DT = 40 (1311 Disk Packs) 

= 41^ (852 Disk Packs) 

= 50g (853 Disk Packs) 

= 51 (854 Disk Packs) 

= 60g (813, 814 Disk Files) 

= 70^ (863 Drum) 

O 

Binary integer giving number of segments 
in file (0 < SC < 64). 

Protection flags for use by I/O system. 
Values currently defined: 

0 File may be read or written 
1 File may not be written 

6-bit code which provides further device 
information. For 1311 and 852 disk packs, 
the values are: 

XXXXXO Track Mode 
XXXXXl Sector Mode 

For 853, 854, 813, 814, and 863, the 
value is: 

XXXXXl Sector Mode 

Binary integer indicating number of allo- 
catable units (tracks) assigned to file 
(0 < file size < 2^^). 

File block and record positions where next 
record can be written. 


Character which terminates each record 
when the record format is record mark 
variability. 
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FIELD NAME 


SIZE 


DESCRIPTION 


RE (record format) 3 bits Denotes the type of file records: 

00 Fixed length records 
01 Key field contains total number 
of characters 

02 Key field contains the number of 
occurrences of a fixed length 
trailer item 
03 Universal format 
04 Record mark specified by RM 
terminates each record 


BF (block format) 

1 bit 

1 = One logical record per block 

0 = Logical records are blocked and each 
block contains two word header which 
specifies next block number (NBlSf) and 
position of first available character in 
block (POFAC). 

LRS (logical record 
size) 

2 characters 

Logical record size, in characters, of 
fixed length record; size of fixed portion of 
variable records with trailer items. Zero 
if records vary by key field or record mark. 

MAX (maximum logical 
record size) 

2 characters 

Maximum size in characters of variable 
portion of logical records. For variable 
records with trailers, this is size of trailer 
item times maximum number of occurrences. 
For all others this is maximum size of record 
within file. 

TIS (trailer item size) 

2 characters 

Trailer item size in characters if RF = 02, 
else zero. 

KFM (key field mode) 

1 bit 

Mode of key field address 



0 Key field is within each record 

1 Key field is outside record (not 
in file) 

KFS (key field size) 

5 bits 

Number of characters in key field. 

Key Location 

17 bits 

Character position of key field relative to 
beginning of record if key field is within 
record. 
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FIELD NAME 

SIZE 

DESCRIPTION 

IDM (ID Mode) 

1 bit 

Type of record identification associated 
with every record in file. 

0 = alphanumeric 1 = numeric 

IDL (ID Length) 

5 bits 

Length in characters of record identification 
field. 

Status 

1 character 

Reserved to reflect current status of the 
file as defined by each operating system or 
library program. 

ID Location 

2 characters 

Starting character position of identification 
field in each record of the file. 

Checksum 

24 bits 

24-bit binary checksum of entire label. 

This field is checked by I/O system to 
detect accidental modification of label. 

Device Number 

3 characters 

Number of device on which this file segment 
is stored. This field is checked against 
device label to insure that proper packs are 
mounted. 

Low Segment Limit 

24 bits 

Binary hardware address at which this file 
segment begins. 

Segment Length 

4 characters 

Number of allocatable units (tracks) in this 
segment. 

* (re served) 

89 characters 

These fields are reserved for future use of 
I/O system. 
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MAGNETIC TAPE 


GENERAL HEADER LABELS 

All header label records are 80 characters (480 bits) long, and are unblocked. They are recorded 
in even parity (BCD) at the same density as the remainder of the data file. Header records are 
separated from succeeding data records by an interrecord gap only. Header label record fields 
are defined below; they are positioned as shown within the physical record. Values that may be 
used within these fields are also indicated. 


Field Name 

Starting 

Character 

Position 

Length in 
Characters 

Defined Values 

BCD Characters Only 

Function 

Densityt 

1 

1 

2, 5, 8 

Specifies density 
of recording file 

Header Label 
Identifier 

2 

2 

( ) 

Identifies record as 
header label record 

Not used 

4 

2 



Retention Code 

6 

3 

000-999 

Specifies, in days, 
file retention period 

File Namet 

9 

14 

Any combination of 
legal BCD characters 

Identifies file 

Reel Numbert 

23 

2 

01-99 

Sequence of reels 
for multireel files 

Date Written 

25 

6 

Any legal numeric 
date, expressed as 
mmddyy 

Date written is used 
with retention period 
to determine release 
date of file 

Edition Numbert 

31 

2 

00-99 or blank 

Identifies a single 
file set 

User Supplied 
Information 

33 

48 

Any combination of 
legal BCD characters 

User comments field 


t Used by *DEF open unit function 
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MAGNETIC TAPE 


STANDARD ENDING LABELS 


The input-output control system writes ending labels for all files with standard labeling and at the 
end of each reel of a multireel file. 



Starting 

Character 

Length in 

Defined Values 


Field Name 

Position 

Characters 

BCD Characters Only 

Function 

End-of-Tape 

1 

3 

EOT- 

End of tape for 

or 



or 

intermediate reel 

End-of-File 



EOF 

End of file for 
final tape 

Block Count 

4 

5 

numeric 

Physical record 
(block) count for 
reel if multireel file; 
for file if multifile 
or single file reel 

User supplied 

9 

72 

Any combination of 

User comments field 

information 



legal BCD characters 
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FILE BLOCKING FORMATS 


F 


Til© iiipu.t~ou.tpu.t systsxii blocks suci d©blocks uS©r fil©s in sccordsnc© with, infoi’ms.tioii supplied in 


th© BLOCK CONTAINS and RECORD CONTAINS clauses of the FD entry for each file, 
record formats depend on the hardware type on which the file resides. 


Physical 


The maximum size of a block and logical record is 131, 067 characters. 

The following chart shows the possible variations of BLOCK and RECORD clauses. The reference 
codes used in the chart are defined in the following pages. 


File Blocking Reference Chart 


Q W 

O / 

o / 

H O 
> W 

CO 

RECORD 

CONTAINS 

clause omitted 

integer-3 

CHARACTERS 

integer-3 TO integer-4 
CHARACTERS 

integer-3 TO integer-4 
CHARACTERS 
DEPENDING ON 
RECORD MARK 

integer-3 TO integer-4 
CHARACTERS 
DEPENDING ON 

data-name 
(data-name PIC 9(5)) 

integer-3 TO integer-4 
CHARACTERS 

DEPENDING ON 

data-name 
(USAGE COMP-1) 

clause omitted 



’^2 

^2 

^2 

^3 

integer-1 

CHARACTERS 


^4 

^5 

^5 

^5 

^5 

integer-1 

RECORDS 





^7 


integer-l 

TO 

integer-2 
CHARACTERS 

^8 

"^8 

^8 


^8 

^8 

integer-1 

TO 

integer-2 

RECORDS 

^9 


^10 

Lo 

Lo 

Lo 
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Reference Code 


Resultant Biock Format 


Unblocked, fixed-length logical records. Size of physical record is computed 
from record description. 

Unblocked logical records. Physical record may be variable on magnetic 
tape, but on mass storage the record is always fixed length with size equal to 
integer-4. 

Fg Illegal combination. Universal records must always be blocked. 

F^ Blocked or unblocked logical records, depending on whether integer-l is a 

multiple of the record description length. Size of physical record is always 
integer-1 characters. 

F^ Blocked logical records. Size of block is always integer-l characters on mass 

storage; the block may be variable on magnetic tape. 

Fg Blocked, fixed-length logical records. Size of block is equal to integer-l 

times the length of the record description. 

F^ Blocked logical records. Size of block is equal to integer-l times integer-4 

for mass storage; block may be variable on magnetic tape. 

Fg Blocked logical records. Block size is always integer-2 characters on mass 

storage; may be variable length on tape. 

Fg Blocked logical records. Mass storage block size is equal to integer-2 times 

the length of the record description; may be variable on magnetic tape. 

F^^ Blocked logical records. Mass storage block size is equal to integer-2 times 

integer-4; may be variable on tape. 
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INPUT/OUTPUT SUMMARY TABLE 


G 


This table indicates the various features included in COBOL for performing input/output operations 
on a data file. The list which follows is a guide for cross referencing the table. 


Summary of I/O Options 



Hardware Type 

Mass Storage 

Magnetic 

Tape 

System 

Files (INP, 
OUT, PUN) 

CRT 

TTY 

Unit Record 
Reader, Printer, 
Punch 

Permanent 

Scratch 

Access Mode 

S,R 

S,R 

S 

S 

S 

S 

Labeling 

S 

0 

S,0,D 

S,0,D 

0 

S, 0,D 

Blocking 

B,U,R 

B,U,R 

B, U 

U 

u 

U 

Block Size 

FH 

FH 

F,V 

X 

X 

X 

Logical Record 
Size 

F,RM, 

K1,K2 

F,RM, 

K1,K2 

F,RM,K1 

F 

F 

F 

Allocation 

A 

A 

X 

X 

X 

X 

Expansion 

E 

E 

X 

X 

X 

X 

Release 

U 

A 

X 

X 

X 

X 

Actual Key 

AR,AS 

AR, AS 

X 

X 

X 

X 

Use Declaratives 

SE, LB 

SE 

SE,LB 

LB 

X 

LB 

Open 

03,04 

03,04 

01,02,04 

04 

03,04 

04 

Close 

Cl 

Cl 

C1,C2, 

C3,C4 

Cl 

Cl 

Cl 

Read 

R1,R2 

R1,R2 

R1 

R1 

R1 

R1 

Write 

W1,W2 

W1,W2 

W1 

W1 

W1 

W1 

Seek 

S 

S 

X 

X 

X 

X 
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Option Code 


ACCESS MODE S 

R 

LABELING S 

O 

D 

BLOCKING B 

U 

R 

BLOCK SIZE F 

FH 

V 


Meaning 

SEQUENTIAL 

RANDOM 

STANDARD 
OMITTED 
data name 

Blocked logical records 
Unblocked logical records 
RESPOND - UNIVERSAL blocking 

Fixed Length - no block header 
Fixed Length - eight character header 
(mass storage only) 

Variable length 


LOGICAL RECORD SIZE F 

RM 

K1 

K2 


Fixed length 

Variable depending on record mark 
Variable depending on data-name (key field - BCD) 
Variable depending on data name (key field - 
COMPUTATlONAL-1) 


ALLOCATION 


A File may be allocated internally 


EXPANSION 


E File may be expanded internally if it is in sequential 

mode. 


RELEASE 


A 


r*nnTT a t 

X %^^XJ X^Xj JL 


A Entire file released at end of run 

U Unused portion released when file is closed if in 

segmented, sequential mode 

AR Actual key must be upidated by user if file is random 

mode 

AS I/O control will update actual key if file is sequential 

mode 


USE DECLARATIVES SE 

LB 


Use after standard error recovery 
Use before/after standard 
beginning/ending label procedure 
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Option 


Code 


Meaning 


OPEN 01 

02 

03 

04 


CLOSE 

Cl 

CLOSE 


C2 

CLOSE WITH NO REWIND 


C3 

CLOSE WITH LOCK 


C4 

CLOSE REEL 

READ (INTO) 

R1 

READ; AT END (sequential) 


R2 

READ; INVALID KEY (random) 

WRITE (FROM) 

W1 

WRITE (sequential) 


W2 

WRITE; INVALID KEY (random) 

SEEK 

S 

SEEK; INVALID KEY 

ILLEGAL OPTION 

X 



OPEN 


INPUT 
^ OUTPUT 
OPEN INPUT REVERSED 
OPEN I-O 

1 INPUT ■ 

OPEN 


WITH NO REWIND 


INPUT 
OUTPUT( 
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DIFFERENCES BETWEEN MASS STORAGE 
COBOL AND USAS! COBOL 


USASI COBOL and Mass Storage (MS) COBOL both operate under control of the MASTER operating 
system. They are compatible except for the language differences described in this appendix. 

The elements omitted from USASI COBOL either have no effect on the object program or their 
functions can be performed by other elements present in both versions of COBOL/MASTER. The 
elements omitted from MS COBOL are features in USASI COBOL which have no equivalent in MS 
COBOL. 

Elements in MS COBOL not in USASI COBOL Alternate Methods Available in Both 

ENVIRONMENT DIVISION: 

MEMORY SIZE clause of None, used for docmnentation only 

SOURCE-COMPUTER paragraph 

DATA DIVISION: 

CONSTANT SECTION Constants can be defined with the VALUE 

clause in Working-Storage and Common- 
Storage sections. 


File Description Clauses: 

FILE CONTAINS None, used for documentation only 

NON-STANDARD option of Data-name option of LABEL RECORDS clause 

LABEL RECORDS clause can be used to specify nonstandard labeling. 

Label checking is done by the input-output 
control system in USASI COBOL. 


Record Description Clauses: 

SIZE Nitmber of symbols representing character 

position in PICTURE(includes all symbols but 
V S and P). 

CLASS Type of character in PICTURE: 

9 is NUMERIC 

A is ALPHABETIC 

X is ALPHANUMERIC or AN 

POINT LOCATION V in PICTURE 

SIGN or SIGNED S in PICTURE 
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Elements in MS COBOL not in USASI COBOL 


Alternate Methods Available in Both 


Record Description Clauses (cont'd): 

ZERO SUPPRESS 
CHECK PROTECT 
FLOAT DOLLAR SIGN 

PROCEDURE DIVISION: 

Conditional statement connectives or operators: 
OTHERWISE 
THEN 
UNEQUAL 
EQ 
NQ 
GR 
LS 


Z used as replacement character in PICTURE 

* used as replacement character in PICTURE 

currency symbol ($) used as replacement 
character in PICTURE 


ELSE 

; (semicolon) 

NOT EQUAL TO or NOT = 
EQUAL TO or = 

NOT EQUAL TO or NOT = 
GREATER or > 

LESS or < 


Elements Common to MS and USASI COBOL 

RESERVE ( ALTERNATE AREA 

I integer-1 | 

clause in FILE-CONTROL 


Tv/rc r</^T>r\T . 

X VJ»J. iVJ.kJ' JLJV-/J-i , 

NO Produces no buffering 

1 Produces single buffering 

2 (or clause omitted) 
Produces double buffering 


For USASI COBOL: 

NO (or clause omitted) 

Produces no buffering for unblocked files 

1 Produces single buffering for unblocked 

files and double buffering for blocked 
sequential files 

2 Produces double buffering for blocked 

and unblocked sequential files 
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The elements given below are available in USASI COBOL but not in MS COBOL. Except for abbre¬ 
viations, which can be replaced by the complete word, these elements represent new features which 
have no equivalent in MS COBOL. 

ENVIRONMENT DIVISION: 

MODULES option of OBJECT-COMPUTER paragraph, (documentation only) 

Literal IS mnemonic-name clause of SPECIAL-NAMES paragraph 
CURRENCY SIGN IS literal clause of SPECIAL-NAMES paragraph 
DECIMAL-POINT IS COMMA clause of SPECIAL-NAMES paragraph 
RENAMING clause of FILE-CONTROL paragraph 

DATA DIVISION: 

REPORT SECTION 

SD entry (sort file description) 

File Description: 

SECTOR/TRACK and SEGMENTED/CONTIGUOUS options of RECORDING MODE clause 
VALUE OF option of LABEL RECORD IS data-name clause 
REPORT clause 

Record Description: 

level-nirmber 66 and RENAMES clause 

INDEX and COMPUTATIONAL-2 options of USAGE clause 

JUSTIFIED RIGHT clause 

ASCENDING/DESCENDING KEY and INDEXED BY options of OCCURS clause 

PIC abbreviation of PICTURE 

COMP abbreviation of COMPUTATIONAL 

COMP-1 abbreviation of COMPUTATIONAL-1 
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PROCEDURE DIVISION: 

GIVING series in ADD, SUBTRACT, MULTIPLY and DIVIDE 

TO series in ADD 

BY option in DIVIDE 

UNIT option in CLOSE 

language-name option of ENTER 

UNTIL and VARYING options of PERFORM 

REVERSED option of OPEN INPUT 

REPLACING and procedure-name options of COPY 

BEFORE/AFTER ADVANCING option of WRITE 

compound conditions joined with AND 

COMPUTE verb 

Sort Feature: 

RELEASE verb 
RETURN verb 
SORT verb 

Table Handling Feature: 

SEARCH verb 
SET verb 

Source Program Debugging Feature: 

TRACE verb 
Report Writer Feature: 

BEFORE REPORTING option of USE statement 
GENERATE verb 
INITIATE verb 
TERMINATE verb 
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DfAGNOSTICS 


I 


DiAGNOSTiCS 

Each diagnostic generated by the compiler has the following format: 

nnnnn c English text diagnostic word / D idn 

nnnnn Source program line number where error occurred. 

c Character code specifying severity of error; 

S Severe error. No object code is generated for the statement; execution and binary 
deck generation suppressed. 

E Probable error. Code generated for statement; however, results during execution are 
unpredictable. 

W Warning. A minor inconsistency encountered. Program expected to run correctly, 
word Current source text element deemed erroneous. 

D idn Internal name assigned to a data-name for PASS 2 diagnostics. 

In all cases, program compilation continues in order to diagnose additional errors. 

IDENTIFICATION/ENVIRONMENT DIVISION 


Type 

Message 

W 

*ACCESS MODE* CLAUSE IGNORED FOR NONMASS STORAGE FILE. 

W 

*ACCESS MODE* CLAUSE REQUIRED FOR MASS STORAGE—ASSUMED SEQUENTIAL. 

W 

*ACTUAL KEY* CLAUSE IGNORED FOR NONMASS STORAGE FILE. 

S 

*ACTUAL KEY* MISSING FOR RANDOM FILE—SET TO SEQUENTIAL. 

S 

*ASSIGN* MISSING—FILE IGNORED (word) 

S 

COMPUTER NAME MUST BE *3300* OR *3500* (word) 

S 

*DATA DIVISION* HEADING MISSING—COMPILATION TERMINATED. 

S 

DATA-NAME USED WITH ACTUAL KEY CLAUSE MAY NOT BE QUALIFIED. 

W 

DUPLICATE CLAUSE IN SELECT STATEMENT—IGNORED (word) 


DUPLICATE *CURRENCY SIGN* CLAUSE—SECOND CLAUSE IGNORED. 


DUPLICATE *DECIMAL POINT* CLAUSE—SECOND CLAUSE IGNORED. 


DUPLICATE HEADER—FIRST DEFINITION ACCEPTED (word) 


DUPLICATE SELECT STATEMENT FOR CURRENT FILE-NAME—2ND SELECT IGNORED. 

W 

*END REEL* IN *RERUN* CLAUSE NOT VALID FOR MASS STORAGE—ASSUMED *END UNIT*. 

W 

*END UNIT* IN *RERUN* CLAUSE NOT VALID FOR TAPE FILE—ASSUMED *END REEL*. 


60229400 


I-l 











1-2 


60229400 






Type 


Message 


S MNEMONIC-NAME PREVIOUSLY DEFINED (word) 

S MULTIPLE DEFINITION OF FILE-NAME IN *SAME AREA* OR ^MULTIPLE FILE* CLAUSES (word) 

A file-name mentioned in a MULTIPLE FILE clause may not be mentioned in a SAME AREA clause 
since MULTIPLE FILE implies sharing same areas. Likewise, a file-name may not be mentioned 
more than once within either clause or in multiple like clauses. 

W *MULTIPLE REEL* CLAUSE IGNORED FOR-MASS STORAGE FILE. 

W *MULTIPLE REEL/UNIT* CLAUSE VALID ONLY FOR TAPE AND.MASS STORAGE FILES—CLAUSE 
IGNORED. 

W *MULTIPLE UNIT* CLAUSE IGNORED FOR TAPE FILE. 

S NO FILE-NAMES GIVEN IN *MULTIPLE FILE* CLAUSE (word) 

S NO FILE-NAMES GIVEN IN *SAME-AREA* CLAUSE (word) 

S *OPTIONAL* DISCREPANCY BETWEEN MASTER FILE AND CURRENT FILE (word) 

W PARAGRAPH HEADER PRECEDING THE COPY STATEMENT IS EXPECTED AT THIS POINT (word) 

S * POSITION* INTEGER IN *MULTIPLE FILE* CLAUSE CANNOT BE ZERO. 

S POSITION NUMBER OF A FILE MAY NOT EXCEED 6.3, 

S PREVIOUS ERROR CAUSED CURRENT FILE TO BE UNDEFINED (word) 

S PROGRAM-DD NAME IS MISSING OR ILLEGAL (word) 

S RENAMED FILE PREVIOUSLY DEFINED AS A RENAMING FILE (word) 

S RENAMING FILE WAS PREVIOUSLY RENAMED (word) 

S REQUIRED HEADER MISSING OR OUT OF ORDER (word) 

S REQUIRED WORD MISSING. 

S *SELECT* MISSING—FILE IGNORED (word) 

S *SECTION* MISSING FROM SECTION HEADER. 

S TEXT MUST NOT FOLLOW CURRENT HEADER (word) 

S THE WORD *DrVISION* IS MISSING. 

W *THRU* OPTION OF FILE-LIMITS CLAUSE ILLEGAL FOR RANDOM ACCESS FILE. 

S UNDEFINED FILE-NAME IN *RERUN* CLAUSE (word) 

S UNDEFINED FILE-NAME IN *SAME AREA* OR *MULTIPLE FILE* CLAUSE (word) 
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DATA DIVISION 


Type 

Message 

S 

A CONDITION NAME MAY NOT BE ASSOCIATED WITH A LEVEL 66 ITEM. 

S 

A CONDITION NAME MAY NOT BE ASSOCIATED WITH AN ITEM WHOSE USAGE IS INDEX. 

s 

A REDEFINED ITEM MAY NOT CONTAIN AN OCCURS CLAUSE NOR BE SUBORDINATE TO ITEM 

CONTAINING ONE. 

E 

ACCESS-PRIVACY VALUE EXCEEDS 4 CHARACTERS. 

S 

ACCUMULATED SIZE OF PRECEDING GROUP ITEM IS GREATER THAN 131,067 CHARACTERS. 

E 

ALL SUBORDINATE ITEMS WITHIN A COMPUTATIONAL-1 GROUP MUST BE COMPUTATIONAL-1. 

E 

ALL SUBORDINATE ITEMS WITHIN A COMPUTATIONAL-2 GROUP MUST BE COMPUTATIONAL-2. 

E 

ALL SUBORDINATE ITEMS WITHIN AN INDEX GROUP MUST BE INDEX. 

E 

AN ITEM MAY NOT CONTAIN VALUE CLAUSE IF IT IS SUBORDINATE TO AN ITEM WITH A VALUE 

CLAUSE. 

S 

AN ITEM SUBORDINATE TO AN OCCURRING ITEM MAY NOT HAVE A VALUE CLAUSE. 

S 

*ASCENDING/DESCENDING KEY* CLAUSE REQUIRES AN *OCCURS* CLAUSE. 

S 

♦BINARY, DECIMAL, SECTOR, TRACK* EXPECTED—CURRENT WORD INVALID (word) 

E 

♦BLANK WHEN ZERO* CLAUSE MAY NOT BE USED UNLESS ITEM IS NUMERIC EDITED. 

E 

BLOCK CONTAINS CLAUSE INTEGER-2 MUST BE GREATER THAN INTEGER-1. 

E 

BLOCK CONTAINS CLAUSE MUST HAVE POSITIVE INTEGERS. 

S 

COMMON-STORAGE SECTION ENCOUNTERED TWICE. 

E 

COMMON-STORAGE SECTION MUST PRECEDE WORKING-STORAGE SECTION. 

S 

COMPUTATIONAL-1 LITERAL MAY NOT EXCEED + OR - 8338607. 

S 

COMPUTATIONAL-2 LITERAL EXPONENT MAY NOT EXCEED + OR - 308. 

S 

COMPUTATIONAL-2 ITEM ASSIGNED ILLEGAL LITERAL. 

S 

CURRENT FILE-NAME CANNOT BE A SORT FILE. 


One or more of the following clauses in the ENVIRONMENT DIVISION were used to describe the 
ENVIRONMENT of the current file (RENAMING, ACTUAL KEY, FILE-LIMITS, ACCESS MODE, 
PROCESSING MODE. RERUN ON, MULTIPLE FILE, SAME AREA), thus, the file may not be a 

SORT file. 

W 

CURRENT VALUE CLAUSE CONSIDERED DOCUMENTARY. 

E 

CURRENT WORD IS INVALID IN *USAGE* CLAUSE (word) 

E 

CURRENT WORD SHOULD BEGIN IN *A* MARGIN OF SOURCE TEXT (word) 

S 

DATA DIVISION MUST BEGIN WITH A SECTION HEADER 

s 

DATA-NAME EXPECTED—CURRENT WORD INVALID (word) 

s 

DATA-NAME IS NOT DEFINED IN DATA DIVISION (word) 


A data-name mentioned within a DATA DIVISION qualification string has not been defined. 

s 

DATA-NAME LEVEL NUMBERS MUST BE EQUAL IN REDEFINES CLAUSE. 

E 

♦DATA RECORDS* CLAUSE MISSING LN FILE DESCRIPTION(FD). 
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Type Message 


s 

INVALID LEVEL NUMBER HIERARCHY WITHIN RECORD DESCRIPTION. 

Within a record description a level number has been encountered which is less than the previous level 
just processed, however, a prior item with an equal level number has not been defined. 

Example: 01 ALPHA. .. , 

03 BETA_ 

03 BETA-B_ 

04 DELTA. .. . 

02 ZETA_ 

E 

ITEM MAY NOT HAVE USAGE OF COMP-1, COMP-2, OR INDEX IF SUBORDINATE TO ITEM WITH 

DISPLAY USAGE 

E 

ITEM MAY NOT HAVE USAGE OF COMP-1, COMP-2, OR INDEX IF SUBORDINATE TO ITEM WITH A 

VALUE CLAUSE 

E 

ITEM MAY NOT HAVE USAGE OF DISPLAY OR INDEX IF SUBORDINATE TO ITEM WITH 

COMPUTATIONAL USAGE. 

S 

ITEM MAY NOT HAVE VALUE CLAUSE IF SUBORDINATE TO AN ITEM WITH A REDEFINES CLAUSE. 

E 

ITEM MUST BE NUMERIC IF SUBORDINATE TO AN ITEM WITH COMPUTATIONAL L^AGE. 

S 

ITEM WITH OCCURS DEPENDING ON CLAUSE ILLEGAL IN FILE WITH RECORD CONTAINS DEPENDING 

ON CLAUSE. 

E 

JUSTIFIED CLAUSE ILLEGAL AT GROUP LEVEL 

S 

KEYFIELD FROM AN OCCURS DEPENDING ON CLAUSE IN FILE SECTION MUST BE A NUMERIC ITEM 
< 5 DIGITS 

S 

KEYFIELD FROM AN OCCURS DEPENDING ON CLAUSE MAY NOT BE SUBORDINATE TO ITEM 

CONTAINING CLAUSE. 

s 

KEYFIELD FROM AN OCCURS DEPENDING ON CLAUSE MAY NOT BE WITHIN THE VARIABLE PART OF 

THE RECORD. 

s 

KEYFIELD IN RECORD CONTAINS DEPENDING ON CLAUSE MUST BE COMP-1 OR NUMERIC ITEM OF 

< 5 DIGITS. 

s 

*LABEL RECORDS* CLAUSE MISSING IN FILE DESCRIPTION!FD). 

E 

♦LEFT* OR *RIGHT* EXPECTED—CURRENT WORD INVALID (word) 

S 

LEVEL 77 ILLEGAL IN FILE SECTION. 

E 

LEVEL 77 ITEMS MUST BE DEFINED FIRST IN COMMON AND WORKING STORAGE. 

s 

LEVEL 77 MAY NOT HAVE SUBORDINATE LEVELS. 

g 

LEVEL NUMBER FOLLOWING AN FD MUST BE 01. 

s 

LITERAL ASSOCIATED WITH A NON-NUMERIC ITEM MUST BE A QUOTED LITERAL OR 

FIGURATIVE CONSTANT. 

s 

LITERAL OR FIGURATWE CONSTANT EXPECTED—CLURENT V'ORD INVALID (word) 

s 

LITERAL, FIGURATIVE CONSTANT OR DATA-NAME EXPECTED—C URRENT WORD INVALID (word) 

s 

MASS STORAGE FILE MUST HAVE ^'TANDARD LABELS. 
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Message 


MODIFICATION-PRIVACY VALUE EXCEEDS 4 CHARACTERS. 

MORE THAN 3 LEVELS OF NESTED OCCURS CLAUSES ENCOUNTERED. 



NO RECORD DEFINED FOR THE FILE. 

NON-USASI ELEMENT,-CLAUSE IGNORED. 

OBJECTS OF RENAMES CLAUSE MAY NOT BE OCCURRING ITEMS NOR BE SUBORDINATE TO AN 
OCCURRING ITEM. 

OCCURS CLAUSE INTEGER-2 MUST BE GREATER THAN INTEGER-1. 

♦OCCURS* CLUASE ILLEGAL AT LEVEL 01 OR 77. 

OCCURS CLAUSE MUST USE POSITIVE INTEGERS. 

♦OMITTED* OR ^STANDARD VALUE OF* OR DATA-NAME EXPECTED—CURRENT WORD INVALID (word) 
OWNER VALUE EXCEEDS 8 CHARACTERS. 

PICTLTIE CLAUSE CONFLICTS WITH CLASS OF ITEM. 

PICTURE CLAUSE ILLEGAL AT GROUP LEVEL. 

POINT ALIGNMENT OF LITERAL ASSIGNED TO DATA ITEM CAUSED LOSS OF NON-ZERO DIGITS ON 
LEFT. 

POINT ALIGNMENT OF LITERAL ASSIGNED TO DATA ITEM CAUSED LOSS OF NON-ZERO DIGITS ON 
RIGHT. 

PRECEDING DEFINITION DEFINED A STORAGE AREA OF DIFFERENT SIZE THAN THE ORIGINAL ITEM. 
QUOTED LITERAL IS TOO LARGE FOR ITEM—RIGHT TRUNCATION OCCURRED. 

RECORD CONTAINS CLAUSE INTEGER-2 MUST BE GREATER THAN INTEGER-1. 

RECORD CONTAINS CLAUSE MUST HAVE POSITIVE INTEGERS. 

RECORD CONTAINS CLAUSE NECESSARY IF USING LEVEL 01 WITH REPORTS ARE CLAUSE. 

♦RECORD-MARK* OR DATA-NAME EXPECTED—CURRENT WORD INVALID (word) 

♦RECORD* OR *RECORDS* EXPECTED—CURRENT WORD INVALID (word) 

RECORD SIZE HAS BEEN DESCRIBED BY TWO OCCURS DEPENDING ON CLAUSES —SECOND CLAUSE 
IGNORED. 

REDEFINES CLAUSE ILLEGAL AT LEVEL 66 AND 88. 

♦REDEFINES* CLAUSE MAY NOT BE SPECIFIED FOR AN OCCURRING ITEM. 

REDEFINES CLAUSE MAY NOT BE USED AT LEVEL 01 ENTRIES IN FILE SECTION. 

♦REDEFINES* MUST IMMEDIATELY FOLLOW DATA-NAME-1. 

REDEFINITION MUST IMMEDIATELY FOLLOW THE ENTRIES DESCRIBING THE AREA BEING 
REDEFINED. 

REEL-NUMBER VALUE EXCEEDS 2 DIGITS. 

♦RENAMES* EXPECTED—CURRENT WORD INVALID (word) 

RENAMES CLAUSE RESULTS IN ITEM SIZE GREATER THAN 32K WORDS. 
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Type 

Message 

S 

ILLEGAL REPORT GROUP LINE NUMBER SPECIFICATION. 


The first subordinate report item description which follows a report group description cannot contain 
a line number specification when the group description specifies a line number clause. 

s 

ILLEGAL RE PORT-NAME (word) 

s 

ILLEGAL SUMMARY REPORTING—NO SUM COUNTERS DEFINED. 

s 

ILLEGAL VALUE SPECIFIED (word) 

s 

ILLEGAL *WITH CODE MNEMONIC-NAME* CLAUSE (word) 

s 

ILLEGAL VALUE IN REPORT LINE NUMBER CLAUSE (Word) 

s 

INTEGER-1 REQUIRED IN PAGE CLAUSE WHEN ABSOLUTE SPACING USED. 

s 

INTEGER-3 REQUIRED IN PAGE CLAUSE WHEN PAGE HEADING DEFINED AND DETAILS USE 

RELATIVE SPACING. 

s 

INTEGER-4 REQUIRED IN PAGE CLAUSE WHEN PAGE FOOTING DEFINED AND DETAILS USE 

RELATIVE SPACING. 

s 

INVALID ^COLUMN NUMBER* CLAUSE. 

s 

INVALID CONTROL GROUP-CONTROL IDENTIFIER PREVIOUSLY USED. 

s 

INWALID CONTROL GROUP-NO CONTROL CLAUSE DEFINED AT RD LEVEL. 

s 

INVALID DATA-NAME IN RESET CLAUSE (word) 


Data-name-1 in the RESET clause must be specified in the CONTROL clause in the report description. 

It must be of a higher level in the CONTROL hierarchy than the data-name associated with the report 
group in which the RESET clause appears. 

s 

INVALID *FIRST DETAIL* INTEGER (word) 

s 

INVALID *LAST DETAIL* INTEGER (word) 

s 

INVALID *NEXT GROUP* CLAUSE SPECIFICATION. 


The NEXT GROUP clause may not be used in a TYPE PAGE HEADING or TYPE PAGE FOOTING 
report group. 

s 

INVALID PAGE *FOOTING* INTEGER (word) 

s 

INVALID PAGE *HEADING* INTEGER (word) 

s 

INVALID *PAGE LIMIT* INTEGER (word) 

s 

INVALID PICTURE CLAUSE. 

s 

INVALID RESET CLAUSE—CONTROL HIERARCHY RULES VIOLATED. 

s 

INVALID *SUM* CLAUSE SPECIFICATION. 


The SUM clause may appear only in a TYPE CONTROL FOOTING or TYPE DETAIL report group. 

s 

INVALID SUM COUNTER USAGE—CONTROL HIERARCHY RULES VIOLATED. 

s 

LEVEL NUMBER ERROR-01 IS MISSING. 

s 

LINE CLAUSE ABSOLUTE VALUE EXCEEDS PAGE CLAUSE LIMITS. 

s 

LINE CLAUSE CONFLICTS WITH PAGE CLAUSE SPECIFICATIONS. 

s 

♦LINE NUMBER* CLAUSE IS REQUIRED FOR REPORT LINE. 
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Message 


S MNEMONIC-NAME IN *WITH CODE* CLAUSE IS UNDEFINED OR INVALID (word) 

Either the name is not defined or the wrong mnemonic-name in the SPECIAL-NAMES SECTION has been 
referenced. 

S NEXT GROUP CLAUSE ABSOLUTE VALUE EXCEEDS PAGE CLAUSE LIMITS. 

S NO LEVEL NUMBER FOLLOWING AN RD-NO REPORT GROUPS. 

S *PICTURE* CLAUSE IS REQUIRED FOR ELEMENTARY ITEM. 

S RD LEVEL INDICATOR MISSING (word) 

The compiler continues searching through the SOURCE RECORDS until a level RD is found. 

S REPORT GROUP *TYPE* CLAUSE IS REQUIRED. 

S RESET CONTROL IDENTIFIER NOT DEFINED IN CONTROL CLAUSE. 

S *SOURCE, SUM OR VALUE* CLAUSE IS REQUIRED FOR ELEMENTARY ITEM. 

S SUM CLAUSE OPERAND NOT DEFINED IN SOURCE CLAUSE OF DETAIL REPORT GROUP. 

S UNDEFINED NAME IN THE *CONTROLS ARE* CLAUSE (word) 

W UNUSED IDENTIFIER IN CONTROL CLAUSE. 

S *WITH CODE MNEMONIC-NAME* CLAUSE MUST PRECEDE *COPY* STATEMENT. 

S *ZERO* EXPECTED TO FOLLOW *BLANK WHEN* (word) 
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PROCEDURE DIVISION 
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Type 


Message 


s 

ILLEGAL TO MOVE EDITED OR ALPHABETIC ITEM TO A NUMERIC OR NUMERIC EDITED ITEM 
(D idn) 


A numeric edited, alphanumeric edited, alphabetic, or floating-point edited data item may not be 
moved to a numeric edited, floating-point edited, numeric (non-integer), integer, COMPUTATIONAL-1, 
or floating-point item. 

s 

ILLEGAL TO MOVE NUMERIC OR NUMERIC EDITED ITEM TO AN ALPHABETIC FIELD (D idn) 


A numeric edited, floating-point edited, numeric (non-integer), integer, COMPUTATIONAL-1, or 
floating-point field may not be moved to an alphabetic field. 

s 

ILLEGAL USE OF ARITHMETIC-EXPRESSION IN CONDITIONAL STATEMENT (word) 


An arithmetic-expression can appear only as a subject and/or object in the relational option or as a 
subject in the sign option of a conditional statement. 

s 

ILLEGAL USE OF LITERAL IN CONDITIONAL STATEMENT (word) 


A nonnumeric literal can appear as the subject or object only in the relational option of a 
conditional statement. 

s 

IMPERATIVE STATEMENT MUST FOLLOW *ON SIZE ERROR, AT END, INVALID KEY* (word) 


Either the imperative statement is missing or an IF statement has been used; conditional statements 
are not legal following these options. 

s 

IMPROPER USE OF COBOL KEYWORD (word) 

s 

IN NESTED IF STATEMENT *IF* WILL NOT BE EXECUTED WHEN FOLLOWS *NEXT SENTENCE* OR 
*GO TO* 

s 

IN NESTED IF STATEMENT MORE *ELSE* STATEMENTS THAN *IF* STATEMENTS WERE ENCOUNTERED. 

s 

IN SEARCH ALL, AND IS THE ONLY ALLOWABLE LOGICAL CONNECTOR. 

s 

INCOMPLETE RELATIONAL OPTION OF A CONDITIONAL STATEMENT (word) 


In the relational option, the first relation must be complete. The compiler has not been able to 
identify an object. 

s 

INCORRECT FORMAT IN IMPLIED OPERATOR AND CONNECTOR OPTION OF RELATIONAL 

CONDITION (word) 

s 

INDEX-DATA-ITEM ALLOWED ONLY IN SEARCH, SET, AND RELATION CONDITIONS (word) 

s 

INDEX-NAME ALLOWED ONLY IN PERFORM, SEARCH, SET, AND RELATION CONDITIONS (word) 

s 

INDEX-NAMES CANNOT BE QUALIFIED (word) 

s 

INITIATE, TERMINATE, AND GENERATE NOT ALLOWED IN DECLARATIVES. 

s 

INP MAY NOT BE USED AS MNEMONIC-NAME IN *DISPLAY*. 

s 

INPUT, OUTPUT, I-O, OR INPUT-OUTPUT MUST FOLLOW OPEN VERB (word) 


One of these reserved words is expected following the OPEN verb. The compiler cannot identify the 
current word. 

s 

*INPUT-OUTPUT* OPTION APPLICABLE ONLY FOR MASS STORAGE (word) 

s 

INSUFFICIENT PROCEDURE-NAMES IN GO TO DEPENDING ON STATEMENT (word) 


At l6s.st tw'O proc6clur6^n3.iij6S must pi*6C6ci€ tliG DEPENDING ON option of 3 . GO TO stEtomorit. 

s 

INTEGER IN TIMES OPTION IS NOT POSITIVE (word) 
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s 

*INTO* OR *BY* MUST FOLLOW FIRST OPERAND OF DIVIDE STATEMENT. 

s 

INVALID ADD/SUBTRACT STATEMENT (word) 


A data-name, numeric literal, or one of the reserved words TO, GIVING, or FROM is expected at 
this point in the source statement. If the word is a reserved word other than TO, GIVING, or FROM, 
the compiler considers itseK lost and proceeds to the next keyword. 

s 

INVALID ALTER STATEMENT (word) 


The first TO of the TO PROCEED TO phrase is required; if PROCEED is specified, the second TO 
must follow. 

s 

INVALID ARITHMETIC EXPRESSION (word) 


An arithmetic operator and the left parenthesis must be followed by a variable, a unary minus, or a 
left parenthesis. A unary minus must be followed by a variable or a left parenthesis. 

s 

INVALID *AT END* OF SEARCH STATEMENT (word) 


The AT END directive is optional, but if AT is specified, END must be present. 

s 

INVALID CLOSE STATEMENT (word) 


When the word WITH is specified, the NO REWIND or IjOCK words must be given. If the word NO is 
specified, the word REWIND must follow. 

s 

INVALID COMPUTE STATEMENT (word) 


The expression following the equal sign must be a numeric data-item, literal, or arithmetic expression. 
The current operand (word) is not a unary minus, left parenthesis, or a programmer-assigned word. 

s 

INVALID ELEMENT WITHIN DISPLAY STATEMENT (word) 


Data-names, literals, or figurative constants other than ALL are expected. The current word does not 
meet the specifications of a programmer-assigned word. 

s 

♦INVALID KEY* OPTION OF READ STATEMENT VALID ONLY FOR RANDOM ACCESS MASS STORAGE 

FILES (word) 

s 

♦INVALID KEY* OF *WRITE* AND *1/0* OF ♦OPEN* OPTIONS APPLICABLE ONLY FOR MASS 

STORAGE (word) 

s 

INVALID OPERAND IN SORT STATEMENT (word) 


The current word is not identifiable. The compiler was looking for another data-name or one of the 
following reserved words: ON, ASCENDING, DESCENDING, INPUT, or USING, 

s 

INVALID USE OF FIGURATIVE CONSTANT *ALL* (word) 


The literal following all must be either a nonnumeric literal or a figurative constant other than ALL. 

s 

INVALID WRITE ADVANCING STATEMENT (word) 


In the advancing option of the WRITE statement, only data-names, mnemonic-names, and integer 
literals are allowed. The current word does not meet the specifications of a programmer-assigned word. 

s 

LANGUAGE-NAME OF ENTER STATEMENT MUST BE COMPASS, FORTRAN, OR COBOL (word) 

s 

LITERAL OTHER THAN FIG CON ♦ALL* EXPECTED (word) 

s 

MASS STORAGE WRITE STATEMENT MUST SPECIFY INVALID KEY (word) 

s 

MAXIMUM OF 48 LEVELS OF KEY DATA-NAMES MAY BE TESTED IN THE SEARCH ALL CONDITION 
(D idn) 
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S ONE CHARACTER LITERAL OR FIGURATIVE CONSTANT-EXCEPT ALL—EXPECTED AT THIS 
POINT m EXAMINE (word) 

S ONLY INTEGERS ARE ALLOWED WITH TRACE CONTROL OPTIONS (word) 

S ONLY ONE *WHEN* OPTION ALLOWED IN SEARCH ALL (word) 

S OPEN, READ, SEEK, AND WRITE ARE NOT ALLOWED IN DECLARATIVES SECTION. 

S ONLY USE BEFORE/AFTER BEGINNING ARE VALID LABEL PROCEDURES ON IvIASS STORAGE (word) 

S OPERAND FOLLOWING *BEFORE/AFTER* OR *BEFORE/AFTER STANDARD* IS NOT IDENTIFIABLE. 

W OPERAND OF PREVIOUS DIAGNOSTIC ASSUMED CORRECT IN ORDER TO CONTINUE SYNTAX CHECK 
(word) 

The compiler assumes the operand to be as stated in the previous diagnostic in order to enable 
continuation of syntax checking within the current statement. 

This message does not clear the previous error; it indicates that the remainder of the statement is 
checked for additional syntax errors. 

W PARAGRAPH HEADER PRECEDING THE COPY STATEMENT IS EXPECTED AT THIS POINT (word) 

S PARAGRAPH-NAME AND PROCEDURAL PARAGRAPH MUST FOLLOW USE STATEMENT (word) 

S PARAGRAPH-NAME ASSIGNED TO A *NOTE* STATEMENT MAY NOT BE REFERENCED (word) 

When the NOTE verb immediately follows a paragraph-name, the name is a component of the NOTE 
statement and thus cannot be referenced by any procedural statements. 

S PARAGRAPH-NAME EXPECTED TO FOLLOW SECTION-NAME (word) 

S PARAGRAPH-NAME NOT UNIQUE WITHIN ITS SECTION (word) 

S PARAGRAPH-NAME PREVIOUSLY USED AS A SECTION NAME (word) 

W PREVIOUS DIAGNOSTIC SUSPENDED SYNTAX CHECK—RESUMED AT THIS POINT (word) 

S PROCEDURAL SEQUENCE CONTROL IDENTIFIER MAY NOT BE FLOATING POINT-(D idn) 

The control identifier for GO TO DEPENDING ON, PERFORM, and WRITE statements may not be 
floating-point items. 

S PROCEDURAL SEQUENCE CONTROL IDENTIFIER MUST BE AN INTEGER-(D idn) 

The procedural sequence controlling identifier-(D idn) for GO TO DEPENDING ON, PERFORM, and 
WRITE statements must be defined as having no positions to the right of its assumed decimal point. 
This numeric item is not an integer. 

S PROCEDURAL SEQUENCE CONTROL IDENTIFIER MUST BE NUMERIC ITEM-(D idn) 

The procedural sequence controlling identifier (D idn) for GO TO DEPENDING ON, PERFORM, and 
WRITE statements must be defined as a numeric elementary item with no positions to the right of its 
assumed decimal point. The identifier (D idn) is not numeric. 
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FATAL ERROR CONDITIONS 


A system error which prohibits compilation from continuing causes a message of the following format to be 
written on the job standard out file. 


Message 

Significance 

*UCBL x=n function REJECT ON DSI dsi. 

Action phrase. 

X X or y returned by blocker/deblocker 

X for LOCATE or SEXPAND j MASTER 

n Corresponding reject code. [ REFERENCE 

) MANUAL 

Function Any one of the following: PACK, PACKC, PACKR, 

PICK, PICKC, PICKD, LOCATE, SEXPAND, 
ASSIGNM, 3ALOCATE 

Action Optional description applicable to error message, 

phrase 
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OBJECT-TIME DIAGNOSTICS 


REPORT WRITER 

During program execution the routines generated to produce a report test for four invalid conditions. The 
following corresponding messages are written on the job standard OUT file. The job is then terminated with 
UCBL ABNORMAL TERMINATION written on the standard OUT file. 

report-name INITIATE ON INITIATED REPORT 
report-name TERMINATE ON UN-INITIATED REPORT 
report-name GENERATE ON UN-INITIATED REPORT 
report-name REACHED END OF ALLOCATED FILE 


USASI COBOL/SORT 

At the completion of a USASI COBOL/SORT operation, the following informative message is written on the 
standard OUT file. 

UCBL SORT RECORDS IN xxxxxxxx RECORDS OUT yyyyyyyy 


Vixo OS./X I 


voluntary abort message is generated for the job. 


core is scheduled to allow sorting to begin, the following 


UCBL SORT INSUFFICIENT CORE SCHEDULED 


The user should schedule more core before attempting to run the job again. 

At the end of a SORT operation, if the record counts do not agree the following message is displayed to the operator. 
UCBL SORT RECORD COUNTS DO NOT AGREE ACCEPT ABANDON 


Operator action is as follows: 

1. Press MANUAL INTERRUPT 

2. Type response code Rr, 

3. Type either ACCEPT or ABANDON 

4. Press FINISH 


RERUN/RESTART MESSAGES 


Message 

Significance 

RERUN DUMP number of dump just written 

Written on job standard OUT file as each rerun dump is taken 
during program execution. 

RERUN FILE FULL. 

Subsequent dump requests are ignored. Dump file may become 

LAST DUMP # IS number of last complete 

full if allocated area for mass storage file is exceeded, or 

dump written 

magnetic tape file end-of-reel is reached. 


Either expand mass storage dump file or mount new output tape 
reel. Restart from any dump up to and including last complete 
dump. 


60229400 


1-25 










SYSTEM REJECT CONDITIONS 

A job may abort because of conditions detected by the MASTER BLOCKER/DEBLOCKER, MIOCS, *DEF, or 
system OCARE processors. The format of such diagnostics is as follows: 


Message 

Significance 

UCBL I/O ERR s mmcc DSI dsi 

s Code indicating the object-time processor rejected by 

MASTER. 

O Open request processor 

C Close request processor 

R Read request processor 

W Write request processor 

M Move processor 

H Hardware failure processor 

S Seek request processor 

D Rerun/restart processor 

E Multifile processor 

U Unknown reject processor 

mm 2-digit code indicating which MASTER routine caused 
reject. 

cc 2-digit error code returned by MASTER routine on 

rejection. 

mm Routine 

01 BLOCKER/DEBLOCKER 

02 MIOCS 

03 *DEF 

04 System OCARE 
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TERMINATIVE DIAGNOSTICS 

When the object-time I/O system encounters a trouble area for which no correction can be made, the system generates 
an abortive diagnostic on the standard OUT file for the job. The format of the message is indicated below'; the error 
code depends on the source code for interpretation. 

UCBL I/O ERROR s nnnn DSI dsi 

s Code indicating which I/O routine generates the diagnostic, 

nnnn Numeric code for the error encountered. 


s 

nnnn 

"" 

Significance 

C 

0001 

Attempt to CLOSE an unopened file. 

D 

0001 

Abnormal termination of a read/write operation in the rerun dump routine. 

H 

0001 

Hardware device is inaccessible; processing cannot continue. 

O 

0001 

Attempt to OPEN WITH NO REWIND on a file not previously CLOSED WITH NO REWIND. 

R 

0001 

Attempt to READ a file which was not opened for INPUT or INPUT-OUTPUT. 

S 

0001 

User requested a SEEK on an imopened file. 

w 

0001 

Attempt to WRITE on a file declared to be INPUT only. 

c 

0002 

Attempt to CLOSE REEL on a mass storage file. 

D 

0002 

Rerun file dsi error in the restart control card; control card contains more than four characters. 

H 

0002 

Operator decided to abandon the job after encountering an irrecoverable 1/O transmission error 
where the user provided no AFTER STANDARD ERROR RECOVERY declarative procedure. 

M 

0002 

Logical record size error. A logical record exceeds the maximum size defined for the file. 

O 

0002 

Attempt to OPEN WITH NO REWIND a mass storage file. 

R 

0002 

Attempt to READ an unopened file. 

S 

0002 

User attempted a SEEK on a sequential access file. 

W 

0002 

Attempt to WRITE on an unopened file. 

D 

0003 

Abnormal termination of a LOCATE, PICK, or READ request in the restart routine. 

M 

0003 

Variable portion of a logical record exceeds the maximum variable portion size defined for the file. 

0 

0003 

Attempt to OPEN a file which is already open. 

R 

0003 

Attempt to READ a file which has reached EOF but has not been closed. 

W 

0003 

Attempt to WRITE on a magnetic tape file which has been CLOSED WITH NO REWIND or CLOSED 

WITH REWIND but has not been subsequently opened again. 

o 

0004 

Attempt to open a file that shares areas with or is on the same multifile reel as another file which 
is currently open. 

w 

0004 

Attempt to WRITE on a mass storage file following a previous WRITE which was rejected; control 
had been passed to the user's INVALID KEY procedure. 

o 

0005 

_ 

Abnormal termination of a forward I/O search on a multifile reel. 
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OPERATOR MESSAGES 


MESSAGE TO OPEBATOB 




Type 

Job 

Task 

nnn 

Optional Message 

Significance 

Action 

Br 

JOB i 

UCBL 


I/O IBB EBB ON DSI dsi 

Irrecoverable error on 

1 . 

Press MANUAL 





ACCEPT BYPASS BETBY 

l/O. User program did 


INTEBBUPT 





ABANDON 

not specify AFTEB 

2 . 

Type MASTEB generated 






STANDABD EBBOB 


response code and one 






BECOVEBY DECLABATIVE. 


action word: 






Operator must make appro¬ 
priate decision. 


Action word 

ACCEPT Ignore error 
condition and proceed. 








BYPASS Skip erroneous 
record and proceed. 








BETBY Bepeat recovery 
procedures. 








ABANDON Terminate 
job. 







3. 

Press FINISH 

Br 

JOB i 

UCBL 


LBL EBBOB DSI dsi 

Header label does not agree 

1 . 

After moimting correct 





BEEL nn ht CcEeUuuu 

with information furnished 


reel, t 3 rpe Br,OK 






by user. 

2 . 

To ignore incompatibility, 
type Br,NO 







3. 

Press FINISH 

Br 

JOB i 

UCBL 


INP 

MNT DSI dsi 


1 . 

Motmt reel n on tape 
unit uu 

Type response: 





BEEL nn ON ht 

CeEeUuuu BSVP 


2 . 








Br,OK Beel moxmted 
Br,NO Bequest cannot 








be honored 







3. 

Press FINISH 

M 

JOB i 

UCBL 


INP 

MNT DSI dsi BEEL 

nn ON ht CcEeUuuu 

File is assigned to alter- 

Mount reel nn on unit uuu. 

■ 




nating units. Object-time 
l/O system automatically 

No response required. 



• 



switches to alternate reel 
at reel end. 



1 

JOBi 

UCBL 


INP 

MNT DSI dsi BEEL 

nn ON UNIT NEXT 
ASSIGNED TO THIS JOB 


Mount reel nn on unit assigned 
by the *DEF logging message 
immediately following this 
message. 
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ENTER VERB OBJECT CODE EXAMPLES 


J 


The ENTEB verb object code varies when data-names are all alphanumeric, all nume 
The following symbols are used in the VFD (variable field definition) in the examples: 


iixec 


Characters preceding slash marks (mode indicators) 


O Octal 

A Word address arithmetic 

C Character address arithmetic 

The positive decimal integer following the mode indicator denotes the niunber of bit positions in the 
variable field. 

Characters following slash marks 


L location 

S length 

0 zero 

P point location 


Characters in parentheses denote the data-name, file-name or procedure name associated with the 
indicator. For example, S(DN3) means the size of DNS. 


ENTEB USASI COBOL Subprograms 

ENTEB COBOL; XCBLSUB. 

Besulting object code: 

EXT 
BIS 
BTJ 
BOS 

Parameters may not be passed to a COBOL subprogram. Instead, the two programs communicate 
through the Common-Storage section of the DATA Division. 


XCBLSUB 

XCBLSUB 


•! 
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ENTEB COMPASS/MASTEE Subprograms 

ENTEE COMPASS; SUBE, DNl, DN2, DN3, FNl, PNl, C2DN, CIDN 

DN Data-name 

FN File-name 

PN Procedure-name 

C2DN COMP-2 data-name 

CIDN COMP-1 data-name 

Eesulting object code: 

EXT SUBE 

EIS 

ETJ SUBE 

VFD 06/52,01/0, C17/L(DN1) 

VFD 07/0,017/S(DN1) 

VFD 06/60,01/0, C17/L(DN2) 

VFD 06/P(DN3), 06/S(DN#), 06/P(DN2), 06/S(DN2) 

VFD 06/61,01/0, C17/L(DN3) 

VFD 06/40,03/0, A15/L(FN1) 

VFD 06/00,03/0, A15/L(PN1) 

VFD 06/71,03/0, A15/L(C2DN) 

VFD 06/70,03/0, A15/L(C1DN) 

EOS 

ENTEE USASI FOETEAN Subprogram 

ENTEE FOETEAN: SQETFN; C2DN 

C2DN COMP-2 data-name 

Eesulting object code: 

EXT SQETFN 

EIS 

ETJ SQETFN 

VFD 06/71,03/0, A15/L(C2DN) 
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INDEX 


ACCEPT statement 4-17 
ACCESS MODE clause 2-9 
AC CESS-PRIVACY label field 3-17; 4-42 
Access methods 2-9, 10 
ACTUAL KEY clause 2-10 
with READ 4-52 
with SEEK 4-61 
ADD statement 4-18 
ADVANCING option 

WRITE statement 4-75 
AFTER option 

PERFORM statement 4-44 
ALL figurative constant B-7 
ALLOCATE request 4-52; 7-7 
Allocation 2-8; 4-41 
Alphabetic items 

JUSTIFIED 3-14 
test at 4-11 
move to 4-36 
PICTURE 3-22, 26 
Alphanumeric items 
edited 3-23 
JUSTIFIED 3-14 
move to 4-36 
PICTURE 3-22, 26 
ALTER statement 4-20 
ALTERNATE AREA 

RESERVE clause 2-8 
Arithmetic expressions 4-4 
Arithmetic operators 4-4 
Arithmetic statements 4-5 
ASCENDING KEY option 
OCCURS clause 3-18 
SORT statement 4-64 
ASSIGN clause 2-6 

with sort files 2-5; 4-64 
AT END option 

READ statement 4-51 
RETURN statement 4-54 
SEARCH statement 4-55 
AUTHOR paragraph 1-1 


BEGINNING option, USE statement 4-72 
Binary items (See COMPUTATIONAL-1, -2) 
BINARY option 

RECORDING MODE clause 3-34 
BLANK WHEN ZERO clause 3-11 
with PICTURE edit 3-31 
Block 3-12 

BLOCK CONTAINS clause 3-12 
file blocking formats F-1 
with OPEN 4-43 


CF option, TYPE clause 5-23 
CH option, TYPE clause 5-23 
CHARACTERS option 

BLOCK CONTAINS clause 3-12 
MEMORY SIZE clause 2-2 
Character address bias 
definition 4-16 
with SEARCH 4-56 
Character set B-1 

Collating sequence D-1 
CLOSE statement 4-21 
COBOL control cards 7-4 
Reserved words vii, viii 
Reserved word list C-1, 2, 3 
CODE clause, report writer 5-9 
Codes, external, internal, machine, 
printer, punched cards D-1 
Coding areas 7-1 
Coding sheet rules 7-3 
Coding sheet 7-2, 3 
Collating sequence D-1 

COLUMN NUMBER clause, report writer 5-10 
Comment paragraph 1-1 
Common storage section 3-2 
COMP, -1, -2 (See COMPUTATIONAL-1, -2) 
Comparison of numeric operands 4-9 
Comparison of nonnumeric operands 4-9 
Comparison with index names or items 4-10 
Compilation output 7-8 
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Compiler directing statements 4-3 
COMPUTATIONAL-1, -2 options 
USAGE clause 3-40, 41 
with OCCURS 3-19 
C OM PU TAT IONA L-n items 

in arithmetic statements 4-5 
with DISPLAY statement 4-24 
with SEQUENCED ON 3-37 
COMPUTE statement 4-23 
Conditional statements 4-3 
Condition-name B-3 
Condition-name condition 4-12 
Condition-name entry 3-10 
Conditions 4-6 
Class 4-11 
Comparison 4-9,10 
Condition-name 4-12 
Evaluation rules 4-12 
Relation 4-7 
Sign 4-10 

CONFIGURATION SECTION 2-1 
Connectives B-9 
CONSOLE 2-3 
Constants 

figurative 3-6; B-7 
(See initial value) 

CONTIGUOUS option 

RECORDING MODE clause 3-34 
Control break, report writer 5-2 
Control cards 
COBOL 7-4 
MASTER 7-6 

CONTROL FOOTING option 
TYPE clause 5-23 
Control groups, report writer 5-2 
CONTROL HEADING option 
TYPE clause 5-23 
COPY statement 6-1 

Data description entry 3-9, 10 
FILE-CONTROL paragraph 2-5 
File description entry 3-7 
I-O-CONTROL paragraph 2-10 
OBJECT-COMPUTER paragraph 2-2 
Procedure division 4-2 
Report description entry 5-6 
SOURCE-COMPUTER paragraph 2-2 
SPECIAL-NAMES paragraph 2-3 


/CORR 1 .. . , . 

i corresponding/ 

ADD statement 4-18, 19 
MOVE statement 4-35, 37 
Subtract 4-68 
CRT 2-6 

files assigned to 3-33 
labels 3-16 

CURRENCY SIGN clause 2-4 


Data division xiii; 3-1 

clauses 3-12, report writer 5-9 
entry formats, report writer 5-4 
entry formats, report writer 5-4 
Data division sections 3-1 
Data map 7-9 
Data-name 3-6; B-3 

(See user defined words, words) 
DATA RECORDS clause 3-7, 13 
DATE-COMPILED paragraph 1-1, 2 
DATE-WRITTEN paragraph 1-1 
DE option, TYPE clause 5-23 
Debugging 4-17, 70 
DECIMAL option 

RECORDING MODE clause 3-34 
DECIMAL POINT is COMMA clause 2-4 
Decimal point alignment 3-14, 25 
assumed 3-24 

PICTURE character 3-25, 28 
Declaratives description 4-2 
DECLARATIVES specification 4-1 
*DEF card 7-7 
DENSITY option 

RECORDING MODE clause 3-34 
DEPENDING ON option 

GO TO statement 4-31 
OCCURS clause 3-18 
RECORD CONTAINS clause 3-33 
DESCENDING KEY option 
SORT statement 4-64 
DETAIL option, TYPE clause 5-23, 24 
DETAIL, FIRST/LAST option 
PAGE LIMITS clause 5-16 
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Diagnostics I-l 

Blocker/deblocker 1-27 
COBOL rule violation 1-24 
*DEF 1-27 

Environment division 1-2 
Fatal error 1-25 
Generator 1-24 
Identification division 1-2 
I-O object time 1-28 
MIOCS 1-27 
Object time 1-26 
OCARE 1-27 
Operator Messages I-l 
Procedure division 1-13 
Report writer I-IO 
object time 1—26 
Rerun-restart 1-26 
Sort-object time 1-26 
System reject conditions 1-27 
Terminative 1-28 
UCBL I-l, 25 
USASI/COBOL SORT 1-26 
DISK 2-6 

DISPLAY option, USAGE clause 3-40 
DISPLAY statement 4-24 
DIVIDE statement 4-25 
Divisions xi 
dsi 2-6 


Editing 3-22, 29 

fixed insertion 3-29 
floating insertion 3-30 
rules 3-28 
simple insertion 3-28 
special insertion 3-28 
zero suppression 3-31 
EDITION-NUMBER label field 3-17; 4-42 
Element character offset 
definition 4-16 
with SEARCH 4-56 
Elementary item 3-5 
ELSE option, IF statement 4-32, 33 
END DECLARATIVES 4-1, 2 
END OF REEL/UNIT option 
RERUN clause 2-11 
ENDING option, USE statement 4-72 
ENTER statement 4-26 


Entry xii; 3-4 

Environment division xiii; 2-1 
diagnostics 1-9 
Error diagnostics 7-8; I-l 
ERROR PROCEDURE option 
USE statement 4-72 
EXAMINE statement 4-29 
EXIT statement 4-30 

with PERFCRM 4-45 
Expressions, arithmetic 4-4 


FD entry 

Specification 3-7 
Specification, report writer 5-5 
with OPEN 4-41 
with SORT 4-64 
Figurative constant 3-6; B-7 
File blocking formats F-1 
FILE CONTROL paragraph 2-5 
with SORT 4-64 
File description entry 3-7 
report writer 5-5 
FILE LIMIT clause 2-8 
file-name 3-7, 8 

(See user defined words, words) 

FILE option, USE statement 4-72 
FILE SECTION 3-2 
FILLER 3-6, 9, 38 
FINAL 

control break 5-23, 24 
CONTROL FOOTING 5-24 
CONTROL HEADING 5-23, 27 
FINAL option 

CONTROL clause 5-11 
RESET clause 5-19 
TYPE clause 5-23 

FIRST DETAIL option, PAGE LIMIT clause 5-16 
Floating point 
edit 3-23 

items (See COMPUTATIONAL-2) 
literal B-4, 5 
MOVE 4-35, 36 

FOOTING option, PAGE LIMIT clause 5-16, 17 
FROM option 

COMPUTE statement 4-23 
RELEASE statement 4-53 
SUBTRACT statement 4-68 
WRITE statement 4-74 
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GENERATE statement, report writer 5-26, 27 
GIVING option 

ADD statement 4-18 
DIVIDE statement 4-25 
MULTIPLY statement 4-39 
SORT statement 4-64, 65 
SUBTRACT statement 4-68 
GO TO statement 4-31 
with ALTER 4-20 
with PERFORM 4-45 

GROUP INDICATE clause, report writer 5-12 
Group item 3-5 


Hardware name 2-3, 5, 6, 11 
HEADING option 

PAGE LIMITS clause 5-16, 17 
TYPE clause 5-23 

HIGH option, RECORDING MODE clause 3-34 
HIGH-VALUE, figurative constant B-7 
HYPER option 

RECORDING MODE clause 3-34 


ID label field 3-17; 4-42 
IDENTIFICATION DIVISION xii; 1-1 
diagnostics 1-2 

Identification label field 3-17; 4-42 
Identifier 4-4; B-4 
IF statement 4-32 
Imperative statements 4-3 
Implementor name 2-3 
Independent item 3-5, 10 
Index data item 3-42; 4-55, 56, 62 
Index-name 3-17; 4-15, 55, 56, 62 
INDEX option, USAGE clause 3-40 
INDEXED BY option, OCCURS clause 3-18 
Indexing 4-15 
Initial value 3-6 

INITIATE statement, report writer 5-28 
Input file labels 3-16 
Input files, CLOSE statement 4-21, 22 
INPUT option, OPEN statement 4-41 
INPUT-OUTPUT option 
OPEN statement 4-41 
USE statement 4-72 
INPUT-OUTPUT SECTION 2-4 


INPUT PROCEDURE 

SORT statement 4-64, 65 
I-O-CONTROL 2-9 

I-O option (See INPUT-OUTPUT option) 
I-O Summary of options G-1 
INSTALLATION paragraph 1-1 
INTO option 

READ statement 4-51 
RETURN statement 4-54 
INVALID KEY option 

READ statement 4-51 
WRITE statement 4-74 
Item 3-4 


JOB card 7-6 

Justification, MOVE statement 4-36 
JUSTIFIED clause 3-14 


KEY IS option, OCCURS clause 3-18 
with SEARCH statement 4-55, 57 
Key words B-6 


Label 

magnetic tape E-6 
header E-6 
ending E -7 
mass storage E-1 
procedure 4-72 
standard file E-1 
LABEL RECORDS clause 3-16 
Language elements vii 
Language name 4-26 
LAST DETAIL option 

PAGE LIMIT clause 5-16, 17 
Level indicator 3-2; 5-1, 4 
Level number ix; 3-5, 9 
01 3-5, 9, 10; 5-1, 6 

66 3-5, 9, 10, 35 

77 3-5, 9, 10 

88 3-5, 9, 10 

Library 6-1 

Source preparation 6-3 
LINE COUNTER, report writer 5-3, 7 
LINE NUMBER clause, report writer 5-13 
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Listings, source/symbolic 7-8 
Literal ix; 3-6; B-4 
Literal IS mnemonic-name option 
SPECIAL-NAMES clause 2-3 
LOCK option, CLOSE statement 4-21 
Logical record 3-12 

LOW option, RECORDING MODE clause 3-34 
LOW-VALUE figurative constant B-7 


Mass storage-USASI differences H-1 
MASTER control cards 7-6 
MEMORY SIZE, OBJECT COMPUTER 
paragraph 2-2 
Messages (See diagnostics) 

Mnemonic names 2-3 
MODE 

ACCESS 2-9 

P 'Dr^r^TTCCTMn 0_Q 

RECORDING 3-34 

MODIFICATION-PRIVACY label field 3-17; 4-42 
MODULES option, MEMORY SIZE clause 2-2 
MOVE statement 4-35 
MULTIPLE FILE clause 2-12 
MULTIPLE REEL/UNIT clause 2-8 
with sort files 2-5; 4-64 
MULTIPLY statement 4-39 


Name (See data-name; word; user defined word) 
NEGATIVE 4-10 

NEXT GROUP clause, report writer 5-15 
NEXT PAGE option 

LINE NUMBER clause 5-13 
NEXT SENTENCE option 
IF statement 4-32 
SEARCH statement 4-55 
NO REWIND option 

CLOSE statement 4-21, 22 
OPEN statement 4-41 
Nonnumeric literal B-5 
NOT 4-6, 12 
Notations xiii, xiv 
NOTE statement 4-40 
NUMERIC 4-11 
Numeric 

edit 3-23 
literal B-5 


Numeric items 

with JUSTIFIED 3-14 
with PICTURE 3-12, 26 
in class condition 4-11 
with MOVE 4-35, 36 


OBJECT COMPUTER paragraph 2-2 
Object program 7-9 
OCCURS clause 3-18 
with indexing 4-15 
with REDEFINES 3-35 
with SEARCH 4-55 
with SET 4-62 

OMITTED option, LABEL RECORDS clause 3-16 
ON SIZE ERROR option 4-13 
ADD statement 4-18 
COMPUTE statement 4-23 

TYTXrTTMP + /l-OC 

I y I V I I y i j O 

MULTIPLY statement 4-39 
SUBTRACT statement 4-69 
OPEN statement 4-41 
Operators 

arithmetic 4-4 


logical 4-6 
relational 4-7 

OPTIONAL option, SELECT clause 2-5 
Optional words B-6 
Options in statements 4-14 
OUTPUT option, OPEN statement 4-41 
Output 

Compilation 7-8 
file labels 3-17 

files, CLOSE statement 4-21, 22 
Procedure 4-72 


OWNER ) 
OWNER-ID j 


label field 


3-17; 4-42 


Page break, report writer 5-2 
PAGE COUNTER, report writer 5-4 
PAGE FOOTING option, TYPE clause 5-23, 24 
PAGE HEADING option, TYPE clause 5-23 
PAGE LIMIT clause, report writer 5-15 
Paragraphs xi 

Parameter string, ENTER statement 4-26 
PERFORM statement 4-44 
with USE procedures 4-72 
PF option, TYPE clause 5-23, 24 
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PH option, TYPE clause 5-23 
Physical record (See Block) 

lx-3-22 
t PICTURE / ’ 

Edit 3-28 

Symbols x; 3-24 

PLUS option 

LINE NUMBER clause 5-13 
NEXT GROUP clause 5-15 
POSITION option, MULTIPLE FILE clause 2-12 
POSITIVE 4-10 
PRINTER 2-6 

PRIVACY label field 3-17; 4-42 
Procedure division xiii; 4-1 
Diagnostics 1-13 
Report writer 5-26 
Statements 4-17 
Procedure name 4-2; B-3 
PROCEED TO option 

ALTER statement 4-20 
Program contents xii 
PROGRAM ID paragraph 1-2 
Program structure xi 
PUNCH 2-6 
Punctuation B-9 


Qualifier B-4 

connective B-9 


Random access 2-9 
READ statement 4-51 

random access files 2-9 
sequential access files 2-9 
READER 2-6 
Receiving item 

JUSTIFIED clause 3-14 
MOVE statement 4-35 
Record 3-5 

01 level data description entry 3-9, 10 
RECORD option 

READ statement 4-51 
RETURN statement 4-54 
SEEK statement 4-61 
RE CORD (S) 

DATA clause 3-13 
LABEL clause 3-16 


RECORD CONTAINS clause 3-33 
file blocking formats F-1 
with OPEN 4-42, 43 
with SEQUENCED ON 3-37 
RECORD MARK option 

RECORD CONTAINS clause 3-33 
RECORDING MODE clause 3-34 
RECORDS option 

BLOCK CONTAINS clause 3-12 
RERUN clause 2-11 
REDEFINES clause 3-35 

with COMPUTATIONAL-2 3-41 
REEL option 

CLOSE statement 4-21 
MULTIPLE clause 2-8 
RERUN clause 2-11 
USE statement 4-72, 73 
REEL NUMBER label field 3-17 
Reference format xiii; 7-1 
Relation condition 4-7 
RELEASE statement 4-53 

with SORT statement 4-64 
REMARKS paragraph 1-1 
RENAMES clause 3-9, 10, 36 
RENAMING clause 2-6 
REPLACING option 

COPY statement 6-1 
EXAMINE statement 4-29, 30 
Report 5-1 

REPORT clause, report writer 5-6 
Report description entry 5-6 
Report group 5-1 

REPORT FOOTING option, TYPE clause 5-23, 24 
REPORT HEADING option, TYPE clause 5-23 
Report group description entry 5-7 
Report item 3-5; 5-1 
Report-name 5-5, 6 
Report section 3-1, 4; 5-1 
Report writer 5-1 
clauses 5-5, 8 
diagnostics 
sample program 5-31 
statements 5-26 
RERUN clause 2-11 
Rerun dump 7-9 
Rerun/restart procedures 7-9 
RESERVE ALTERNATE AREA 2-8 
with sort files 2-5; 4-47 
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Reserved words vii, viii 
list of C-1, 2 , 3 

RESET clause, report writer 5-19 
Restart 7-9 

RETENTION CYCLE label field 3-17 
RETURN statement 4-54 

with SORT statement 4-65 
REVERSED option, OPEN statement 4-41 
REWIND option 

OPEN statement 4-41 
RD entry 5-1, 6 

RF option, TYPE clause 5-23, 24 
RH option, TYPE clause 5-23 
ROUNDED option 4-13 
ADD statement 4-18 
COMPUTE statement 4-23 
DIVIDE statement 4-25 
MULTIPLY statement 4-39 
SUBTRACT statement 4-68 
Routine name, ENTER statement 4-26 
RUN option, STOP statement 4-67 

SAME AREA clause 2-12 
Sample program A-1 
COBOL decks 7-11 
report writer 5-31 
SCHEDULE card 7-6 
SCRATCH 2-6 
SD entry 3-8 
Search fimction 4-16 
SEARCH statement 4-55 
Sections xi; 3-1 

Common storage 3-2 
File 3-2 
Report 3-4; 5-1 
Working storage 3-3 
SECTOR option 

RECORDING MODE clause 3-34 
SECURITY paragraph 1-1 
SEEK statement 4-61 

with ACTUAL KEY 2-10 
with READ 4-52 
SEGMENTED option 

RECORDING MODE clause 3-34 
SELECT clause 2-6 

with sort files 2-6; 4-64 
Sentences 4-3 


SEQUENCED ON clause 3-37 
SEQUENTIAL 
ACCESS 2-9 
PROCESSING 2-9 
SET statement 4-62 
with SEARCH 4-57 

Sign 

condition 4-10 
currency 2-4; 3-25 
operational 3-22, 23, 24, 25 
SIZE ERROR option 4-13 
ADD statement 4-19 
COMPUTE statement 4-23 
DIVIDE statement 4-25 
MULTIPLY statement 4-39 
SUBTRACT statement 4-5 
SORT statement 4-64 
with RELEASE 4-53 
with RETURN 4-54 
with SAME SORT AREA 2-12 
SOURCE clause, report writer 5-20 
SOURCE COMPUTER paragraph 2-2 
Source library preparation 6-3 
Source program listing 7-8 
SPACE, figurative constant B-7 
SPECIAL NAMES paragraph 2-3 
with ACCEPT 4-17 
with DISPLAY 4-24 
Special registers B-6 
Statements 4-3 

Arithmetic 4-5 
STOP statement 4-67 
Subscripts 4-15 
SUBTRACT statement 4-68 
SUM clause, report writer 5-20, 21 
Symbolic listing 7-9 
Symbols x 

{ISchronized}"^”"® 

SYSTEM-INPUT 2-3, 6 
SYSTEM-OUTPUT 2-3, 6 
SYSTEM-PUNCH 2-3, 6 


Tables 3-18, 19, 20; 4-55, 62 
handling 4-16 

TALLY, special register 4-29; B-6 
as subscript 4-15 
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WRITE statement 4-74 

with ACTUAL KEY 2-9, 10 


ZERO 4-16 

figurative constant B-7 
Zero suppression editing 3-31 

TRACK option, RECORDING MODE clause 3-34 
TTY 2-6 

files assigned to 3-33 
labels 3-16 
tui 2-6 

TYPE clause, report writer 5-23 


TALLYING option, EXAMINE statement 4-29 
TAPE 2-6 

Task name cards 7-8 
Terminal unit identifier 2-6 
TERMINATE statement, report writer 5-29 
THRU option, RENAMES clause 3-36 
TIMES option, PERFORM statement 4-46 
TRACE statement 4-78 


UNIT option 

CLOSE statement 4-22 
RERUN clause 2-11 
USE statement 4-72 

UNTIL option, PERFORM statement 4-44, 47 
UPON clause 

DISPLAY statement 4-24 
SUM clause 5-20, 21 
USAGE clause 3-40 

with SEQUENCED ON 3-37 
USASI specifications, preface iii 
USASI vs. mass storage H-1 
USE BEFORE REPORTING 4-72; 5-30 
USE statement 4-72 
User defined words viii 
USING option, SORT statement 4-64 


VALUE clause 3-44; 5-20 

with COMPUTATIONAL-2 3-41 
with OCCURS 3-20 

VALUE OF option, LABEL RECORDS clause 3-17 
VARYING option, PERFORM statement 4-44, 47 


WHEN option, SEARCH statement 4-55 
WITH CODE clause, report writer 5-9 
Words viii; B-2 

WORDS option, MEMORY SIZE clause 2-2 
Working storage item 3-3 
WRITE ADVANCING 4-74, 75 
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